Special  Report  so-: 


s 


LEVELS 


STATISTICAL  PACKAGE  USER'S  GUIDE 


Julie  A.  Hopson  and  George  A.  Cotsonis 


$S!  US 

1M*?# 


DTIC 

ELECTEW 
DEC  28  1381 1 

£ 

D 


August  1980 


'NAVAL  AEROSPACE  MEDICAL  RESEARCH  LABORATORY 

.  '•  * 

-  .  PEN  S'AC  0  L  A  FLORIDA 


Approved  for  public  release;  distribution  unlimited. 


Ill® 


28037 


ERRATA  SHEET  for  NAMRL  Special  Report  80-3 
STATISTICAL  PACKAGE  USER'S  GUIDE 
Julie  A.  Hopson  and  George  '.  Cotsonis 


The  following  corrections  should  be  made  to  subject  report. 
Page  No.  Line  No.  Correction 


i  i  i 

1  1  .8.4. 

ANOVA,  1 

One  Repeated  Measure 

vice  ANOVA,  Repeated 

Measures 

i  i  i 

1  1  .C.2. 

One-way 

ANOVA  vice  Two-way 

ANOVA 

i  v 

1 1 .0.6. 

Rotation  vice  Location 

22 

Add  as 

last  sentence  to  Test 

Data:  The  same  data 

used 

in  SRM30  (See  SRM30) 

was  used  for  testing  program 

41 

12 

X.  .  =  u 

1  J 

vice  X .  .  =  i 
•J 

61 

1 

One  Repeated  Measure  vice 

Repeated  Measures 

77 

12 

B.  +  C. 

J  k 

vice  B .  -  C. 

J  k 

110 

24 

Add  the 

following  columns  to 

the  bottom  of  page: 

RAW  DATA 

3.000 

4.000  7.000 

7.000 

6.000 

5.000  8.000 

8.000 

3.000 

4.000  7-000 

9.000 

3.000 

3.000  6.000 

8.000 

1  .000 

2.000  5.000 

10.000 

2.000 

3.000  6 .000 

10.000 

2.000 

4.000  5.000 

9.  .000 

2.000 

3.000  6.000 

1 1 .000 

144 

13/15 

(X.  .  - 

1  jm 

X .  . . )  =  u  +  A .  +  B  . 
‘J  '  J 

+  AB .  .  +  1!  •  M  +  Bfl  .  , .  v  +  E 

1  J  mv  1  )  J  m(  1  ) 

vice  (X..  -  X...)  =  u  +  A.  -  B.  +  AB . .  +  Z  + 

ijm  i  j  ij  m(  i  ) 


BE .  / * \  +  E. . 
jm(  i )  i  jm 

164  1  One-way  ANOVA  vice  Two-way  ANOVA 

174  12  =  U/  >  vice  =  M,  v 

(r)  (r) 


ijm 


247 


1 


(Varimax  Rotation) 


vice  (Varimax  Location) 


Approved  for  public  release;  distribution  unlimited. 


STATISTICAL  PACKAGE  USER'S  GUIDE 


Julie  A.  Hopson  and  George  A.  Cotsonis 


Naval  Air  Systems  Command 
W43-1 3 .8881 

Naval  Medical  Research  and  Development  Command 
ZF  51 . 524.004-201 1 


Approved  by 

Ashton  Grayblel,  M.D. 
Assistant  for  Scientific  Programs 


Released  by 

Commander  W.  M.  Houk,  MC,  USN 
Commanding  Officer 


August  1980 


Accession  For 

HTIS  GRA&I 
OTIC  TAB 
Unannounced 
Justification.. 

By -  __ 


□ 


d 


Naval  Aerospace  Medical  Research  Laboratory 
Naval  Air  Station 
Pensacola,  Florida  32508 


^Distribution/ 

Availability  Codes 
Avail  and/or 
Dlst  !  Special 


s 


DTIC 

ELECTE 
DEC  28  1981 


V 


SUMMARY 

i 

^  The  Statistical  Package  User's  Guide  represents  an  aggregation  of  a 
variety  of  statistical  analysis.  The  types  of  statistical  programs  avail¬ 
able  are:  Analysis  of  Variance,  Analysis  of  Covariance,  Multivariate 
Analysis  of  Variance,  Regression  Analysts,  Factor  Analysis,  Descriptive 
Statistics,  and  Nonparametric  Statistics.  The  User's  Guide  provides  the 
following  documentation  for  each  program:  General  Description,  Mathematical 
Model,  Operational  Procedures,  Test  Data  Statistical  Analysis,  and  Soft¬ 
ware  Coding. 
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INTRODUCTION 


The  Statistical  Package  User's  Guide  represents  an  attempt  to  aggregate 
a  variety  of  statistical  programs  in  the  Aerospace  Psychology  Department  at 
the  Naval  Aerospace  Medical  Research  Laboratory  (NAMRL)  into  one  standard 
package.  Some  of  the  statistical  programs  included  in  the  statistical  pack¬ 
age  were  developed  at  the  Naval  Aerospace  Medical  Research  Laboratory  for  the 
UNIVAC  418  and  NOVA  800;  others  were  programs  obtained  from  different  univer¬ 
sities  with  multifarious  computer  capability  and  programming  languages. 
Selection  of  programs  in  the  statistical  package  was  based  upon  investigator 
needs  and  computer  core  requirements.  The  intention  was  to  provide  a  diver¬ 
sity  of  basic  statistical  programs  for  experimental  investigators  which 
matched  research  requirements  and  which  could  be  readily  utilized  in  the 
majority  of  the  Naval  Aerospace  Medical  Research  Laboratory  computer 
faci 1 i ties. 

For  standardization,  all  statistical  programs  were  coded  in  Fortran  IV 
language  and  sized  to  fit  a  mi ni -computer  with  32k  memory.  The  programs 
were  originally  converted  to  a  Hewlett  Packard  (HP)  2100  mi.  : -computer  but 
were  structured  so  that  only  minor  changes  in  the  input/output  (I/O)  require¬ 
ments  (i.e.,  device  codes  and  disk  file  formats)  would  be  necessary  for  the 
statistical  package  to  be  compatible  with  another  system.  Programs  were 
also  structured  so  that  they  could  be  used  by  investigators  with  limited 
computer  skills.  It  was  intended  that  the  organ i zat ional /structural  phi¬ 
losophy  of  the  statistical  package  serve  as  a  guideline  for  new  programs.  If 
the  same  general  philosophy  is  adhered  to  when  developing  other  statistical 
analyses,  new  programs  could  be  rgadily  shared  by  multiple  users,  thereby 
expanding  the  statistical  package  with  minimal  programming  efforts  and  costs. 
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Once  the  programs  were  converted  to  the  HP  mi n i -computer ,  each  was  checked 
carefully  for  accuracy.  Documented  data  were  obtained  from  specific  sources 
to  check  the  calculation  of  the  statistical  analyses.  An  estimate  of  the 
digit  accuracy  was  obtained  by  comparing  the  results  of  the  HP  calculation 
with  those  obtained  from  other  computing  sources.  Most  comparisons  were 
made  using  the  Statistical  Analyses  System  and  the  Statistical  Package  for 
Social  Sciences,  two  data  analysis  packages  residing  on  the  IBM  3&0  system 
at  University  of  West  Florida.  Most  of  the  programs  were  accurate  to  ten 
digit  places;  exceptions  to  this  are  noted  in  the  user's  guide.  When  com¬ 
parison  analyses  were  done  with  systems  that  had  less  computing  power  than 
the  HP-2100,  double  precision  was  used  in  the  calculations  to  Insure  minimal 
rounding-off  errors.  All  data  analyses  performed  on  the  HP-2100  have  been 
Included  in  the  guide  so  that  calculations  can  be  double  checked  if  a  mal¬ 
function  is  suspected  or  to  verifv  whether  the  operator  is  entering  the  data 
properly. 

Standard  operating  procedures  for  a  specific  system  is  the  only  computer 
skill  needed  to  use  the  statistical  package.  It  will  be  necessary  to  generate 
a  separate  data  file  prior  to  calling  up  a  specific  analysis.  The  data  files 
can  either  be  created  using  DA30  or  constructed  during  an  experimental  un. 

The  format  of  the  data  is  dependent  upon  th  i  desired  statistical  analysis 
and  is  specified  in  the  guide.  When  a  data  file  is  not  organized  appropri¬ 
ately,  edit  or  sorting  commands  of  the  system  being  used  is  typically 
adequate  to  rearrange  files  in  t«ie  necessary  format.  For  other  systems,  it 
may  be  desirable  to  write  a  generalized  utility  program  to  change  data  file 
organ i zat  ion . 
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The  notation  used  for  the  formulas  in  the  statistical  package  should  be 
familiar  to  the  general  user.  Although  alphanumeric  letters  are  used  in 
the  models  rather  than  standard  greek  letters,  with  the  exception  of  Tau  (it), 
the  reader  should  have  no  difficulty  in  interpreting  the  equations.  For  a 
few  cases,  computer  notation  was  used  (i.e.,  transformation  equations).  For 
these,  the  following  notiation  is  utilized: 

*  *  multiplication  sign 

.  ,  2 
x **  *  x 

x**'"’  -  /x“ 

The  Analysis  of  Variance  and  Covariance  programs  were  given  two  names; 
i.e.,  AV10  and  CR-k.  Since  these  analyses  were  developed  frcm  des'gns 
specified  by  Roger  E.  Kirk,  Experimental  Design  Procedures  for  the  Behavioral 
Sc i ences ,  the  unique  nomenclature  he  used  for  specific  designs  was  maintained 
in  the  guide  for  reference.  When  calling  up  any  of  these  statistical  programs, 
only  the  AV  or  AC  notation  will  be  accepted.  For  the  split-plot  analyses  the 
AV  notation  is  accompanied  by  alphanumeric  letters  to  indicate  which  factors 
are  the  within  variables.  AV31C  means  that  A  and  B  are  the  between  group 
factors  and  C  the  within  factor. 
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|.  UTILITY  PROGRAMS 


DA30  (Data  File  Creation) 

Purpose: 

This  program  creates  data  files  for  the  stat-pack  on  the  HP2100. 

The  data  are  entered  by  hand  at  the  computer  console  and  permanently 
stored  on  the  disc. 

User  Considerations  and  Procedures: 

1.  Check  "User  Considerations  and  Procedures"  of  the  various  statistical 
programs  to  see  how  the  data  should  be  formatted  -  some  require  data 
in  matrix  form,  others  in  sequential  form. 

2.  DA30  will  ask  for  the  following 

a.  format  for  data  output.  This  is  the  format  per  line  of  data 
required  for  the  statistical  program.  Respond  by  giving  any 
legal  HP-FORTRAN  IV  format  statement,  enclosing  the  format  in 
parentheses.  For  example: 

1)  (15) 

2)  (15,  F7.3,  F9.7,  16) 

3)  (30,  (IX,  F10 .4) ) 

NOTE:  The  word  format  should  not  be  given. 

b.  logical  record  length.  This  is  the  number  of  characters  per 
line  of  data  created.  Spaces  should  be  includeu  For  the 
example  above,  the  record  lengths  are: 

1)  5 

2)  5+7+9+6=27 

3)  30  *  (1  +  10)  =  30  *  11  =  330 

The  maximum  length  is  512  characters  per  line. 

c  number  of  observations  across.  This  is  the  rumber  of  variables 
per  line.  (Some  statistical  programs  require  one  per  line, 
others  require  many.)  For  the  three  examples  above,  this  is; 

1)  1 

2)  k 

3)  30 
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d.  number  of  levels  down.  This  is  the  number  of  records  to  be 
created  in  the  file.  The  maximum  number  of  records  that  can 
be  contained  in  a  file  is  32767. 

e.  data  file  name.  Enter  name  of  the  file  to  be  created  (maximum 
of  six  characters) 

NOTE:  Imbedded  blanks  are  fl legal.  Do  not  use  a  name  that  is 

already  stored  on  the  disc. 

3.  Procedures  for  entering  data  via  keyboard: 

a.  to  enter  only  one  variable  per  record,  enter  value,  then  hit 
1  return  1 

b.  to  enter  10  or  fewer  variables  per  record,  enter  the  values 
by  row,  separating  each  with  a  comma.  Terminate  the  row  with 
a  'return1 

c.  to  enter  more  than  10  variables  per  .ecord,  enter  data  across 

in  groups  of  10  variables.  Separate  each  variable  with  a  comma, 
and  terminate  each  10  with  a  'return'.  For  example,  for  17 
variables  per  line,  enter  first  10  values  separating  each  by 
a  comma,  hit  'return',  enter  next  7  values  separating  each  by 
a  comma,  hit  'return',  then  go  to  next  record 


Comments : 

Keep  a  separate  memo  of  the  name,  format,  and  record  length  for 
use  in  stat-pack  programs.  This  is  not  saved  on  the  disc  file. 

To  purge  a  data  file  from  the  disc,  enter:  PU ,  'data  file  name'; 

PK,  2. 

To  store  a  data  file  on  tape  run  the  ST0RT  program.  The  purge  option 
can  be  used  to  delete  the  data  file  from  the  disc. 
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RU.DA30 

DATA30 

CREATE  A  DATA  FILE  FOR  INPUT  TO  STAT  PKG. 

INPUT  TO  DATA  FILE  IS  A  2-0 MENS IONAL  ARRAY 
MAXIMUM  OF  30  VALUES  ACROSS,  32767  VALUES  DOWN 
NO  RECORD  IS  KEPT  OF  FILE  ORGANIZATION 
ENTER  OUTPUT  FILE  NAME  -  UP  TO  6  CHARACTERS 
YEVT 

ENTER  LENGTH  OF  RECORO  :  FOR  EXAMPLE 
IF  YOUR  FORMAT  IS  (l 5 (5X , FI  0.4) )  YOUR  LENGTH  WOULD  BE 
15  *  (5  +  10  )  *■  22S 

180 

ENTER  DESIRED  OUTPUT  FORMAT 

(30(1X,F5.1)) 

ENTER  #  OF  OBSERVATIONS  ACROSS 
30 

ENTER  4  OF  LEVELS  DOWN 
3 

ENTER  DATA  VALUES  BY  ROWS  IN  GROUPS  OF  10 
VARIABLES,  SEPARATE  EACH  DATA  VALUE  BY  A  COMMA 
TERMINATE  EACH  10  WITH  CARRIAGE  RETURN,  IE  : 

IF  YOU  HAD  17  VARIABLES  ENTER  IN  FIRST  10  ,  HIT  'RETURN' 
THEN  ENTER  FMAL  7  AND  HIT  ' RETURN ' 

ROW  1 

I, 2,3,4,5,6,7,8,9,10 

II, 12,13,14,15,16,17,18,19,20 
21,22,23,24,25,26,27,28,29,30 

ROW  2 

10,20,30,40,50,60,70,80,90,100 
110,120,129,156, 172,333,444.555,666,777 
888, 999, H 1,222, 345, 456, 5o7, 678, 789, 890 
ROW  3 

15,25,35,45,55,65,75,85,95,105 
29,39,49,59,99,109,76,35,33,22 
11,22,33,44,55,66,77,88,99,0 
YOUR  DATA  FILE  YEWT  IS  NOW  CREATED , 
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*6*30  T *00003  13  ON  CR00002  USING  00014  BLKS  R-0000 


•Titter  I-*-’-  i- 


00*1 

FTN4 

0002 

PROGRAM  0030 

0003 

DIMENSION  OCR 088 <100), NO MO <3  )  / 1 D<  272  > 

0004 

DIMENSION  IBUF!237),ISIZE!2),  IFHT(20) 

0003 

VRI  TE<  1,17) 

0006 

17 

FORMOT < •  D0T030  *,/,*  CREOTS  0  DOTO  FILE  FOR  INFUT  TO  *, 

0007 

i'STOT  PKG .  *,/,*  INPUT  TO  DOTO  FILE  IS  0  2-D IHENS IONOL • 

0006 

2# •  ARRAY* ,/, 'MAXIMUM  OF  30  VOLUES  ACROSS)  UNLIMITED  • 

0003 

3, "VALUES  DOWN  *  « / , *  HQ  RECORD  IS  KEEP  OF  FILE  ORGAN IZOTI ON* , 

0010 

4/, "ENTER  OUTPUT  FILE  NOME  -  UP  TO  6  CHARACTERS* > 

OOU 

REODC 1,18)  NONA 

0012 

18 

FORMAT! 302) 

0013 

234 

FORMAT  <2002 ) 

0014 

URITE<  1,703) 

0013 

703 

FORMAT! *  ENTER  LFHGTH  OF  RECORD  >  FOR  EXAMPLE  *> 

OOU 

736 

WRITE!  1,703) 

0017 

703 

FORMAT!*  IF  YOUR  FORMAT  IS  <  1 3! 3X , Ft 0 . 4  ) )  YOUR  LENGTH  MOULD 

0018 

1/,*  13  •  <3  ♦  10  >  -  223*  > 

0013 

READ!!,*)  LENGTH 

0020 

LEN-LENGTH/2 

0021 

IF!!LEN*2).NE. LENGTH)  LEM-LEH+1 

0022 

LENGTH-LEN 

0023 

I F! LEH . LE . 236 )  GO  TO  236 

0024 

WRITE!  1, 706) 

0023 

706 

FORMAT!  "  LENGTH  IS  TOO  LARGE,  MAX  IS  312") 

0026 

GO  TO  736 

0027 

236 

IDC8S-236 

0028 

ISIZE! 2)* LENGTH 

0023 

120 

WRITE! 1,3338) 

0030 

3338 

FORMAT!*  ENTER  DESIRED  OUTPUT  FORMAT* > 

0031 

READ! 1,234)  IFNT 

0032 

WRITE!  1, 30) 

0033 

30 

FORMAT!  'ENTER  •  OF  OBSERVATIONS  ACROSS") 

0034 

READ!1,*>  NLEV 

0033 

WRITE!  1, 31) 

0036 

31 

FORMAT!*  ENTER  •  OF  LEVELS  DOWN*) 

0037 

READ! 1 , * )  NGRPS 

0038 

SIZE-LENGTH 

0033 

XGRPS-NGRPS 

0040 

SIZE -XGRPS-SIZE/ 128 .  +  1. 

0041 

ISIZE! 1)-SIZE 

0042 

733 

CALL  CREAT! ID , IERR , NAHA , I S IZE . 2 , 0 , -2 , I DCBS > 

0043 

IF! IERR. GT. 0)  GO  TO  100 

0044 

WRITE! 1, 13)  IERR 

0043 

13 

FORMAT!*  ERROR  0  VIS/*  AT  CREATING  FILE  "> 

0046 

STOP  13 

0047 

100 

CALL  CLOSE! ID ) 

0048 

CALL  OPEN! ID, IER , NANA ) 

0043 

IF! IER.GE .0)  GO  TO  124 

0030 

32 

WRITE! 1 , 435  >  IER 

0031 

433 

FORMAT!*  FAILED  TO  OPEN  ,  IER  -  ",I3> 

0032 

STOP  437 

8 


4493 

124 

IF!  NLEV  CT.  14  )  GO  TO  ((( 

0494 

MR1TEC 1.32) 

4499 

32 

FORMAT! *  ENTER  DATA  VALUES  RY  ROW .  SEPARATED  WITH  *, 

4494 

1 * COMMAS*  /  / ,  *  TERMINATE  ROW  U  I  TH  CARRIAGE  RETURN*  > 

4497 

40  41  J2“l»  HGRFS 

4499 

40  44  I* 1 .NLEV 

4499 

(( 

ACROSS!! >*4.4 

4494 

URI TE< 1.42)  ) 2 

44(1 

42 

FORMAT! *  RON  *>19) 

44(2 

REA4U  /*  X  ACROSS!  J  3  >.  J3-1.  NLEV> 

44(3 

CALL  COOE 

44(4 

URI TE! IBUF. IFNT  >!  ACROSS!  J3  >.  J  3*  1 ,  NLEV  > 

44(3 

CALL  NRITF! 14/ IER. I9UF> 

4044 

IF!  IER.GE.O)  GO  TO  41 

44(7 

URITE!1.44>  IER 

44(9 

44 

FORMAT! *  ERROR  •  ".19/*  AT  FILE  URITIHG") 

44(9 

CALL  CLOSE! 14  > 

4474 

STOr  44 

4471 

41 

CONTINUE 

4472 

GO  10  999 

4473 

((( 

URXTE!  1/  777) 

4474 

777 

FORMAT! 'ENTER  4ATA  VALUES  9Y  ROUS  IN  GROUPS  OF  14*./ 

4479 

*.*  VARIALBES.  8EPERATE  EACH  4 AT  A  VALUE  9Y  A  COMMA  * /  /» 

447( 

2*TERMI HATE  EACH  10  MITH  CARRIAGE  RETURN/  IE  I 

4477 

(■IF  YOU  HAO  17  VARIALBES  EH’ER  IN  FIRST  10  ,  HIT  'RETURN'* 

4479 

!/*TNEN  ENTER  FINAL  7  AN4  HIT  ' RETURH' V  ) 

4479 

I H«! 9*NLEV  >/l 0 

4494 

40  91  J2*  1 «  NGRPS 

4491 

40  47  I*  1  / NLEV 

4492 

47 

ACROSS! I )-4 . 

4493 

URITE!  1/  42>  <12 

4494 

40  49  I*  1  / 1 H 

4499 

K*t 4*  I 

449( 

L*<  1-1  >*14  ♦  l 

4497 

(9 

REAO!  I/O  !  ACROSS!  J3)/U3*L/K  > 

4499 

CALL  CQOE 

4499 

URITE! IBUF/ IFNT)  < ACROSS! J3> / 43*1 / NLEV > 

4494 

CALL  URI TF! 14/ IER. IBUF) 

4491 

IF!  IER .LT .0  )  GO  TO  92 

4492 

91 

CONTINUE 

4493 

999 

URXTE!  1.  140  NAHA 

4494 

1(4 

FORMAT!*  YOUR  4ATA  FILE  *.3A2/S  IS  NOU  CREATED .  *  .  7. 

4499 

1*  THIS  PROGRAM  IS  FINISHED  *> 

449( 

CALL  CLOSE!  ID  > 

4497 

ENO 

4499 

ENDS 
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STORT  (Data  Fife  Storage/Retrieval) 

Purpose: 

This  program  performs  either  of  two  operations: 

Storage  of  data  files  onto  tape  (for  backup  purposes  and/or 
permanent  storage) 

Retrieval  of  data  files  stored  on  tape 
User  Considerations  and  Procedures: 

1.  Data  files  transferred  to  tape  will  keep  their  same  format  and 
record  length  as  on  the  disc.  When  tape  files  are  retrieved,  the 
data  file  can  be  renamed  and  stored  on  the  disc. 

2.  Option  for  storage  or  retrieval.  Enter  1  for  storage  of  data  file 
onto  tape,  and  2  for  retrieval  of  data  file  from  tape  to  the  disc. 

j.  When  option  for  storage  onto  tape  is  used,  the  program  will  ask  If 
the  data  file  is  to  be  purged  (deleted  from  the  disc).  Enter  I  for 
deletion,  and  2  for  keeping  data  file  on  disc. 

4.  Parameters  required: 

a.  name  of  data  file 

1)  for  storing  data,  this  is  the  name  of  the  disc  data  file 
to  be  transferred 

2)  for  retrieving  a  data  file,  this  is  the  name  of  the  disc 
file  which  the  data  will  be  transferred  to 

b .  tape  file  number 

1)  for  storing  data,  program  asks  for  the  next  available  tape 
file  number  where  the  data  can  be  stored.  Files  are  stored 
on  tape  sequentially 

2)  to  retrieve  data,  program  asks  for  the  number  of  the  tape 
file  to  be  returned  to  a  disc  file 


RU.STORT 

:SV,4 

THIS  PROGRAM  STORES  AND  RETRIEVES  DATA  FILES  CREATED 
BY  DA30  AND  TRAFM  PROGRAMS  ONTO  TAPE  FILES  TO  BE  USED  LATER.  NOW,  MOUNT 
DATA  TAPE  AND  ENTER  1  WHEN  THROUGH 

1 

ENTER  NAME  OF  DATA  FILE 
#FATAA 

ENTER  I  FOR  STORAGE  ONTO  TAPE,  OR  2  FOR  RETREIVAL 
1 

ENTER  NEXT  AVAILABLE  FILE  #  ON  TAPE 

2 

STORT  FINISHED  WHEN  TAPE  STOPS 

ENTER  1  TO  PURGE  DATA  FILE  FROM  DISC  ELSE  ENTER  0 


STOUT  T-00003  1$  ON  CR00002  USING  04010  BLKS  R-0000 


4041 

0042 

4003 

0444 

0003 

0006 

4007 

0040 

0049 

0410 

0011 

0412 

4013 

0014 

0013 

40U 

0017 

0018 

0019 

0420 

0021 

4022 

0423 

0024 

0423 

O02C 

0427 

0421 

0429 

0034 

0431 

4432 

0433 

0434 

0433 

0434 

4037 

0018 

0039 

0040 

0041 

0042 

0443 

0044 

0043 

4444 

0047 

0048 

0049 

0030 

0031 

0452 

0033 


FTN4 

PROGRAM  STOR 

DIMENSION  I FMGRC  3  ) .  IN  AMEC  3  )/  1 8U  71  <  4  > /  I  BUF2C  4  > 

DIMENSION  IB<  144).  1BUF<  144).NANEC3) 

DIMENSION  IBUF3C 4>« 10(3  ) 

DATA  I BUF372H ) P. 2HU  /  7 
DATA  ID72H»P/ 2HK. . 2H027 
DATA  HAN«72H8T/2H0T/2HR  7 
DATA  IBUF172H  s  8. 2HT. . 2H8/7 
DATA  IBUF272H ) 8/  2HT  .7 
OATA  I C72H. 87 
J 1-13140 

U ALL  OPENC IB. IER.NANE > 

8RI  TE(  1/99) 

REMIND  8 

99  FORHATC'THIS  PROGRAM  STORES  AND  RETRIEVES  DATA  FILES  CREATED  * 
47/*  BY  DA30  AND  *. 

*" TRAFM  PROGRAMS  ONTO  TAPE  FILE8  TO  BE  USED  LATER.  NOW/  MOUNT* 
•7/*  DATA  TAPE  AMO  ENTER  1  WHEN  THROUGH") 

READC1.*)  1  TP 
44  I  BUF2<  4  >■  IC 
WRI TEC  1/  1  > 

1  FORNATC -ENTER  NAME  OF  DATA  FILE*) 

READC 1 / 2  )  INANE 

2  FORMAT <  3A2 ) 

URITEC  1/3) 

3  FORMATC  *  ENTER  1  FOR  STORAGE  ONTO  TAPE.  OR  2  FOR  RETRE 1 VAL* ) 
READ< 1 / *  )  1ST 

IF( IST.EQ.l  )  GO  TO  104 
WRI  TEC  1/4) 

4  FORMATC "ENTER  THE  8  OF  THE  FILE  OH  THE  TAPE*) 

READU/*)  I  TP 

IF<  ITP.LE.l  )  CO  TQ  1444 
K-ITP-1 

1040  DO  14  1-1/3 
14  IBUF1C  1  +  3)- INANE  Cl  > 

CALL  CODE 

URI TEC IBUF/ 23  )  IBUF1 
GO  TO  20 

100  WRITEC1/30) 

SO  FORMATC "ENTER  NEXT  AVAILABLE  FILE  •  ON  TAPE") 

READC 1 / *  )  I  TP 

I FC I  TP . LE . 1 )  GO  TO  103 

K-ITP-1 

103  DO  21  1-1/3 

21  I BUF2C  1  +  2  )"  INANE C I  ) 

CALL  CODE 

WRITEC IBUF. 23  )  IBUF2 
20  CONTINUE 

23  F0RMATC4A2) 

CALL  URITFC 18/ IER/ IBUF. 4  ) 

HRITEC 1. 24) 

24  FORMATC "STORT  FINISHED  WHEN  TAPE  STOPS') 


1Z 


0094  IKK. £0  0)  GO  TO  34 

0095  00  104  J  •  1  <  X 

009#  104  CALL  EXEC! 3 < •)  1  > 

0097  34  COLL  EXECU3. 101.11*12. 13) 

0099  IF!  1 1 .  LT  .  0  >  CO  TO  34 

0099  1F< 1ST .EQ .2  >  GO  TO  70 

00«0  WRITE!  1 »  9  1 ) 

00(1  91  FORMAT!  *  ENTER  1  TO  PURGE  DATA  FILE  FROM  DIGS* 

00(2  I"  ELSE  ENTER  0") 

00(3  READ! 1 >  *  )  1TE8T 

00(4  IF! ITEST .ME . 1  )  GO  TO  70 

00(9  DO  92  Jt-1,3 

00((  92  IIUF3! J1  +  2)«IMAHE!  J 1 ) 

00(7  CALL  CODE 

00(«  WRITE!  IBUF.33)  IBUF3 

00(9  93  FORNAT! 9A2 ) 

0070  CALL  WRITF! !B< IER< IBUFi 3 > 

0071  CALL  COOE 

0072  WRITE! IBUF, 94)  ID 

0073  94  FORMAT! 3A2 ) 

0074  CALL  WRITF! IB. IER* IBUF, 3 > 

0079  70  CALL  CLOSE!  IS  > 

0074  EMO 

0077  END* 


EDIT  (Data  File  Editor) 

Purpose : 

This  program  is  a  simple  editing  program  to  modify  values  in  data 
files  with  large  record  lergths  (i.e.,  those  with  lengths  >  80)  . 

The  program  will  change  values  of  variable  (i),  subject  (j).  The 
program  will  also  list  the  original  data  and  the  revised  data  in 
any  output  format  specified,  if  requested. 

User  Considerations  and  Procedures: 

1.  Program  expects  data  in  a  row  x  column  (R  x  C)  matrix  form. 

Each  line  of  raw  data  would  have  C  (column)  elements  (all 
variables  for  subject  (j)). 

2.  A  listing  of  the  data  file  can  be  obtained  before  editing. 
Option:  1  if  raw  data  printout  is  desired,  0  for  no  printout. 

A  listing  of  the  revised  data  can  only  be  obtained  by  rerunning 
the  program  after  the  necessary  modifications  have  been  made. 

3.  Data  listings  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  f-om  the  line  printer.  Option:  1  for 
CRT  output,  6  for  line  printer  output. 

4.  If  the  option  for  data  listing  is  used,  the  program  will  ask 
for  the  desired  output  format.  When  the  raw  data  have  been 
listed,  enter  1  to  end  EDIT  or  0  to  continue  with  editing. 

5.  For  each  editing  change  desired,  enter  record  number,  variable 
number,  and  desired  correction  separating  each  by  commas.  For 
example,  to  change  variable  22  of  subject  10  from  39.5  to  29.5, 
type  10,  22,  29.5.  Continue  with  the  same  procedure  for  other 
corrections,  if  any.  When  there  are  no  more  corrections  to  be 
made,  type  -999  -999  -999- 

6.  Parameters  required: 

a.  number  of  variables  (maximum  100) 

b.  number  of  subjects  (maximum  32767) 

c.  name  of  data  file 

d.  format  and  record  length  of  file  (see  DA30) 

e.  format  used  to  list  data  (for  legibility  of  data  files) 

f.  editing  parameters  and  corrections 
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RU ,  ED  I T 

ENTER  NAME  OF  DATA  FILE 
IFATAA 

ENTER  FORMAT  OF  DATA 
(8(?.X,F6.2) ) 

ENTER  NUMBER  OF  VARIABLES 

8 

ENTER  NUMBER  OF  SUBJECTS (RECORDS) 

32 

ENTER  THE  RECORD  LENGTH  AS  IN  OA30 
64 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LINEPRINTER 


ENTER  1  FOR  DATA  LISTING 

0 

ENTER  IN  ORDER  'RECORD  #, VARIABLE  #,  CORRECTION 
IE,  TO  CHANGE  THE  VALUE  OF  VARIABLE  5  OF  SUBJECT  10 
TO  29.5  TYPE 

10,5,29.5 

WHEN  YOU  ARE  THROUGH  WITH  ALL  CORRECTIONS  TYPE  IN 
-999,-999,-999 

3,5,678.1 

5,8,599.9 

15,6,435.12 

24.1.39.5 

31.2.45.6 


"EDIT  T ■00003  IS  ON  CR00002  US  IMG  00010  BLKS  R-0000 


0041  FTH4  .  L 

0002  PROGRAM  EDIT 

0003  COMMON  IBC272  ) . IBUFC256 ) . INAnEC  3 ) . IFHT1C20). IFHT2C20) <  XC 100) 

0004  URITEC  1.  I  > 

0005  t  FQRNATC'ENTER  NAME  OF  DATA  FILE") 

0006  READ( 1.2)  INANE 

0007  2  F0RMATC3A2) 

0008  URI  TEC  1 . 3  > 

0008  3  FORMAT< "ENTER  FORMAT  OF  DATA") 

OOtO  REAO( 1.4)  IFMT 1 

0011  4  FORMAT  <  20A2 ) 

0012  URITEC 1*13) 

0013  13  FORMAT< "ENTER  NUMBER  OF  VARIABLES") 

0014  READ( 1 <  *  )  NVAR 

0015  URlTECt.lt) 

0014  11  FORNAT< "ENTER  NUMBER  OF  8U8JECTSC RECORDS)" ) 

0017  READC 1 .  *  >  N3UB 

0018  URITE< 1.88) 

0019  88  FORNATC"  ENTER  THE  RECORD  LENGTH  AS  IN  DA30") 

0020  READC l.*>  LENGTH 

0021  LEN-LENGTH72 

0022  IFCCLEH*2>. HE. LENGTH)  LEH-LEH+1 

0023  LENGTH-LEN 

0024  I DCBS* LENGTH 

0025  I FC  LENGTH . LT . 144  )  1DCBS-144 

0026  CALL  OPEHUB.  1 ER . I N ARE. 3 . 0 , -2 . I DCB8 > 

0027  IF(IER.GE.O)  GO  TO  100 

0028  URITEC 1.5  )  INANE. IER 

0029  5  F0RNATC3A2."  FAILED  TO  OPEN  .  IER  »  *.I5> 

0030  STOP  3 

0031  100  URITE<1.6> 

0032  6  FORNATC "ENTER  1  FOR  CRT  OUTPUT.  6  FOR  L INEPR INTER "  ) 

0033  READC 1 . *  )  IUHIT 

0034  URI  TEC  1.7) 

0035  7  FORNATC "ENTER  1  FOR  DATA  LISTING") 

0034  READC 1 . *  )  ICON 

0037  IFC ICON. HE. 1)  GO  TO  1100 

0038  10  FORNATC-ENTER  OUTPUT  FORMAT  DISIRED") 

0039  1000  URI TEC  1.10) 

0040  READC 1.4)  IFNT2 

0041  DO  1012  J-1.NSU8 

0042  CALL  READFC 18. IER. IBUF) 

0043  CALL  CODE 

0044  READC IBUF . I FNT 1 >CXC i),l»l.HVAR> 

0045  URITEC IUHIT. 133) 

0046  133  FORNATC SX  ) 

0047  1012  URITEC IUHIT. IFNT2)  ( X( I > . I >1 . NVAR > 

0048  URITEC 1.17) 

0049  17  FORNATC-ENTER  ONE  TO  END  EDIT") 

0050  READC 1  .  *  )  ICON 

0051  IFC ICON. EQ. 1)  STOP  17 


4692  1166  yRITE<t,iS> 

6693  IS  FOREST  <  "ENTER  IN  ORDER  '  RECORD  • »  V AR IALBE  I.  CORRECTION,/ 

6694  $■!£,  TO  CHARGE  THE  VALUE  OF  VARIABLE  3  OF  SUBJECT  16*,/ 

4699  X*  TO  29.9  TYPE* , /, 1  OX ,  *  16,9,29.9*,/, "WHEN  YOU  ARE  THROUGH*, 

4694  •*  UXTH  ALL  CORRECTIONS  TYPE  IH  * , / , l OX , ■- 999 , - 999 , -999*  ) 

4697  DO  1111  J«l, 14404 

609B  READ< 1 , *  )  K,L,Z 

6699  IF<K .EQ.-999)  GO  TO  999 

6646  CALL  READF< IB , IER, I BUF , I DCBS . LEH, K > 

4641  CALL  CODE 

6642  READdBUF,  1FHT1  >  (  X<  I  >,  I  >1 ,  KVAR  > 

4643  X<  L ) *Z 

6644  CALL  CODE 

4649  HRITE< IBUF, IFHT1  )  < X< I > , I« 1 , HVAR > 

6444  CALL  «RITF< 18, IER, IBUF, 6,-1) 

6447  CALL  RUHDF< IB  ) 

664B  1111  COHT1NUE 

6649  999  URITE<1,14> 

6476  14  FORHATt 'EDITING  FIHISHED*  > 

6671  ENO 

6672  ENDS 
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TRAFM  (Data  Transformation) 
Purpose: 


This  program  is  used  to  create  a  new  data  set  based  on  a  transformation 
of  an  old  data  set.  TRAFM  can  transform  data  that  are  in  matrix  form 
or  in  sequential  (continuous)  form.  The  program  performs  the  following 
11  transformations: 


1  - 
2  - 

3  - 

4  - 

5  - 

6  - 

7  - 

8  » 
9  - 

10  - 
1  1  - 


reciprocal  (1/x) 
square  root 

,o«!0 

Z  score  —  using  mean  and  standard  deviation  of  all 

desired  variables 

h  l°g1Q  (1  +  x)/(l  -  x) 

x  +  constant 
x  -  constant 
x  *  constant 
x  /  constant 

2  arcsin  (xA*.5)  “  2  arcsin  /  x 

Z  score  by  individual  means  and  standard  deviations 


User  Considerations  and  Procedures: 


1.  Program  creates  a  new  data  file.  Caution  should  be  taken  to 

format  the  new  data  to  correspond  to  the  requested  transformation. 
For  example,  reciprocal  data  will  require  decimal  notation. 


2. 


Program  needs  to  know  the  type  of  data  f i le  which  wi 1 1  be  used. 
Enter  1  if  data  are  in  sequential  form,  enter  0  if  in  matrix  form. 


3.  For  data  in  matrix  form: 


a.  program  asks  for  number  of  subjects  twice.  Respond  both  times 
with  the  number  of  rows  in  the  matrix  file 

b.  program  asks  for  number  of  variables  per  subjec  •  (columns). 
Respond  with  the  number  of  columns  in  the  matrix  file  (maximum 
30) 

c.  program  asks  if  the  same  transformation  is  desired  for  all 
variables.  Respond  1  for  yes,  0  for  no 

d.  If  a  0  response  was  given  to  the  above  (c) ,  program  asks  for 
the  variable  number  (column)  that  is  to  be  transformed.  Then, 
program  asks  if  more  transformations  are  desired.  Respond  1 
for  yes,  or  0  for  no.  On  a  response  of  1,  the  sequence  is 
repeated 
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4.  For  data  in  a  sequential  form:  (program  expects  data  to  index 

for  subjects  first,  then  for  variables,  with  one  subject  per  line). 

a.  program  asks  for  number  of  subjects  in  TRAFM  file;  respond 
with  the  total  number  of  records  in  the  data  file 

b.  program  asks  for  number  of  variables  in  data  file.  This  allows 
some  leeway  in  breaking  up  or  partitioning  the  transform  file. 
If  there  is  no  logical  way  to  partition  the  file,  er.ter  1  for 
only  one  variable.  In  most  rases,  number  of  variables  is  the 
number  of  groups  of  subjects 

c.  same  as  3-c 

d.  same  as  3-d 

e.  programs  ask  for  number  of  subjects  for  each  variable.  Respo 
with  the  number  of  subjects  in  each  group 

5.  Parameters  required: 

a.  type  of  transform  required.  Enter  the  numberical  code  which 
corresponds  to  the  correct  transformation.  When  the  transfor¬ 
mation  is  finished,  enter  0  to  end  the  program,  or  enter  1  to 
perform  another  transformation. 

b .  name  of  old  file 

c.  name  of  new  TRAFM  file 

d.  format  and  record  length  of  old  data  file  (see  DA30) 

e.  format  and  record  length  of  new  data  file  (see  DA30) 

f.  other  parameters  required  for  certain  transformation  such  as 
largetst  positive  number  of  constant  to  be  used.  For  more 
information,  see  comments 

6.  There  is  no  printout  of  the  original  or  transformed  data. 


Comments : 

Uses  and  special  considerations  for  each  transformation. 

1 .  Reci procal 

This  is  used  to  normalize  data  when  the  raw  data  are  skewed  to  the 
right.  If  a  raw  value  is  0,  the  program  arbitrarily  assigns  a  value 
of  1.  This  transformation  improves  homoscedast i ci ty  of  the  distribut 


2.  Square  Root 

This  is  used  to  normalize  rightly  skewed  data.  Program  asks 
for  the  largest  negative  number  in  absolute  value  (C) .  The 
actual  transformation  is  SQ.RT  (x  +  C)  when  x  is  less  than  or 
equal  to  ten.  This  transformation  improves  the  homoscedasti  city 
of  the  distribution. 

3-  Log10 

This  is  the  strongest  transformation  to  normalize  rightly  skewed 
data.  It  may  pull  in  the  right  tail  too  far  and  create  outliers 
on  the  left  side  of  the  distribution.  When  this  occurs,  trans¬ 
formation  1  or  2  above  is  warranted.  Program  requires  that  the 
largest  negative  number  in  absolute  value  (C)  be  inputed.  The 
actual  trar sformation  is  log  (x  +  C  +  1).  The  log  transform  is 
the  most.  lOwerful  in  improving  homoscedast  ici  ty  and  can  be  used 
solely  'or  this  purpose. 

* 

4.  H  Score 

This  transformation  can  be  performed  by  using  the  mean  and  standard 
deviation  of  all  the  variables  in  the  data  file  or  by  the  mean  and 
standard  deviation  of  the  specific  variable  (column)  to  be  trans¬ 
formed.  Respond  1  If  the  transform  should  be  based  on  all  data, 
or  0  if  calculations  are  to  be  based  on  only  the  specified  trans¬ 
form  variable. 

5 .  log  ( ( 1  +  x)  /  ( 1  -  x) ) 

This  is  used  to  transform  left  skewed  distributions  c-  platykurtic 
distributions.  Program  requires  highest  positive  numuer  (C)  to 
be  given  and  the  highest  negative  number  in  absolute  value  (C^) 

The  actual  transformat  ion  is: 

H  toy  ((1  +  x')/(  I  -  x')),  where  x'  ■  (x  +  C  ^ )  /  ( C  ^  +  r-  +  !)• 

6.  x  +  Constant 

This  transformation  is  used  to  move  distribution  right  or  left 
to  rescale  the  data  values.  Program  asks  for  the  required  constant. 

7.  x  -  Constant 

This  transformation  is  used  to  move  distribution  right  or  left  to 
rescale  the  data  values.  Program  asks  for  the  required  constant. 


8.  x  *  Constant 


This  transformation  is  used  to  move  distribution  right  or  left  to 
rescale  the  data  values.  Program  asks  for  the  required  constant. 

9.  x  /  Constant 

This  transformation  is  used  to  move  distribution  right  or  left  to 
rescole  the  data  values.  Program  asks  for  the  required  constant. 

10.  2  arcsin  /  x 

This  transformation  is  applicable  for  left-skewed  distributions 
or  playtkurtic  distributions.  Data  must  be  proportional  data; 
i.e.,  0<  x  <  1.  This  transformation  is  useful  in  many  non- 
parametric  procedures. 

1 1 .  Individual  Z  Score 

This  transformation  is  done  by  standardization  of  desired  variables 
by  their  individual  means  and  standard  deviations. 


Test  Data: 

Program  was  tested  by  comparing  data  output  with  calculator  analysis 
and  the  Statistical  Analysis  System.  Transformation  involving  logs 
or  sines  are  accurate  to  five  digits;  other  transformations  are 
accurate  to  six  digits. 
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PROGRAM  TO  TRANSFORM  DATA 


TYPE  OF  TRANSFORM 
0  -  STOP 

1  -  RECIPICAl  1/X 

2  -  SQUARE  ROOT  (X)**.5 

3  -  LOG(10)X 

4  -  1  SCORE* (X-MEAN) /SO 

5  -  1/2  LOG  ((1+Xj/O-X)) 

6  -  X  +  CONSTANT 

7  -  X  -  CONSTANT 

8  -  X  *  CONSTANT 

9  -  X  /  CONSTANT 

10-2  ARCStN  (X**.b)  -  MUST  BE  PROPORTIONAL  DATA<15> 

11  -  Z  SCORE  BY  INDIVIDUAL  VARIABLE  MEAN  AND  SD 
ENTER  BY  NUMBER  THE  TRANSFORMED  DESIRED: 

1  1 

DATA  FILENAME 
#FATAA 
DATA  FORMAT 
(8(2X,F6.2) ) 

NEW  DATA  FILENAME 
IfZSCR 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
64 

INPUT  NUMBER  OF  SUBJECTS  IN  TRAFM  FILE 
32 

NUMBER  OF  VARIABLES  PER  SUBJECT  : 

8 

DO  YOU  WISH  TRANSFORMATIONS  ON  ALL  VARIABLES,  1  -  YES  ,  0  -  NO 

1 

TYPE  OF  DATA  FILE  1  -  CONTINUOUS  ,  0  -  MATRIX  : 

0 

NUMBER  OF  SUBJECTS  : 

32 

TRANSFORMATION  TYPE  11  IS  FINISHED 

TO  STOP  ENTER  0,  FOR  MORE  ENTER  ANY  OTHER  NUMBER 

0 

TRAFM  :  STOP  0000 
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■TRAM  T-00004  It  OH  CR00002  USING  00033  BLKS  R-0449 
•001  FTN4 

•002  PROGRAM  TROFH 

•  003  DIMENSION  NAME(  3  )*  I  NAME <  3  > ,  I  FMT<  20  ).IDATA(30)»DTA<30>*  12(30) 

004  DINENS10N  I8<  272  )*  IC<  272  >*  IBUF<  234  >.  ICUF(  234  >,  I8IZE<2  ) 

•  003  DIMENSION  SUMK30  >  *  SUM3(  30  >,  X8R(  30  >.  STD(  30  > 

•  000  DIMENSION  IFMTK20) 

’‘At1?  30  IIRITE(  1«  277  ) 

0000  277  FORMATS/,*  PROGRAM  TO  TRANSFORM  DATA  **//,/, 

0009  C*  TYPE  OF  TRANSFORM* 

oOlO  C*  0  •  8T0P* 

•  Oil  C*  1  -  REG  IP ICAL  i/X*  . 

•012  C*  2  ■  SQUARE  ROOT  (X,/,**.3*  ,/, 

••13  C*  3  •  LOC< 10)X*  ) 

••14  URITEt 1. 4403) 

••IS  4403  FORMAT  (  *  4  •  Z  SCORE  ( X-MEAN)/SO* 

0010  C*  3  -  1/2  LOG  ((  1  +  X)/(1-X))M/, 

•017  C*  0  ■  X  ♦  CONSTANT*  ,/, 

0018  C*  7  ■  X  -  CONSTANT* 

0019  C*  8  ■  X  •  CONSTANT*  ,/, 

0020  C*  9  ■  X  /  CONSTANT*  ) 

•021  NRITE( 1, 4411) 

0022  4411  FORMAT  (*10  -  2  ARCSIN  (X**.3>  -  MUST  BE  PROPORTIONAL  DATA<13>* 

0023  C./>*  11  •  Z  SCORE  BY  INDIVIDUAL  VARIABLE  MEAN  AND  SO*./. 

0024  C*  ENTER  BY  HUMBER  THE  TRANSFORMED  DESIRED:  «) 

0023  READ< 1 » *  >  ITE8T 

0020  I F< I TE3 1  . EO . •  )G0  TO  01 

0027  HRITE< 1» 4413) 

0028  4413  FORMAT  ("ENTER  INPUT  DATA  FILENAME*  > 

0029  REAO( 1 #30  )NAHE 

•030  30  FORMAT ( 3A2 ) 

0031  URITE( 1. 4414) 

0032  4414  FORMAT  (  *  DATA  FORMAT"  ) 

0033  READ( 1 » 1 30  )  IFNT 

0034  130  F ORH AT( 20A2  ) 

0033  WRI  TE<  1 1  4238  ) 

0030  4238  FORMATCENTER  THE  INPUT  RECORD  LENGTH  AS  IN  DA30*> 

0037  REAO( 1 » * JLEHCTH 

0038  NRITE( 1* 4413) 

0039  4413  FORMAT  (  "  NEU  DATA  FILENAME*  ) 

•  040  READ( 1 >  30  )I NAME 

0041  URI TE( 1 #  4473 ) 

0042  4073  FORMATCENTER  OUTPUT  DATA  FORMAT*) 

0043  RERDC1/130)  IFMTl 

0944  IDC88-234 

0043  I  SI ZE( 1 )»-l 

••40  ISIZE(2>a LENGTH 

0047  CALL  CREAT( IC< IER1  *  INAHE*ISIZE*2;0,-2/ IDCBS) 

0048  I F(  I ER 1 . GE . 0  >  GO  TO  379 

0049  WRITE< 1*981) 

0030  981  FORMATC  *  INPUT  NUMBER  OF  SUBJECTS  IN  TRAFM  FILE*) 


0031 

READU.O  HSU 

0092 

SIZE-LENGTH 

0093 

XM8U-NSU 

0094 

8 IZE-MM8U*8 IZE/l 29 .  ♦  1. 

0099 

ISIZE< 1 >-8IZE 

0090 

CALL  CREAT< IC, IER, I  NAME , IS IZE , 2 , 0 , -2 , 1 DCBS > 

0097 

I F< 1ER.GE.0)  GO  TO  379 

0099 

879 

UR1TE<  l »  379  )  IHAHE , IER 

0099 

CALL  CL09E< IB  > 

0090 

STOP  3713 

0001 

379 

K4-0 

0002 

CALL  OPEN< 19# IERR, NAME, 3 .0 ,-2 , IDCB8) 

0043 

IF< 1ERR.GE.0)  GO  TO  377 

0044 

NRITE< 1,379)  NAME. IERR 

0043 

378 

FORMAT (IX. 3A2 . *  FAILED  TO  OPEN.  ERROR  1  a.I3> 

0044 

CALL  PURCE< IC. IER. IHAHE  ) 

0047 

STOP  371 

0049 

377 

NRITE< 1.4414) 

0049 

4414 

FORMAT  <  •  MUH1ER  OF  VAR IA8LES  PER  SUBJECT  i  "> 

0070 

READU.O  IV 

0071 

NRITE< 1.4417) 

0072 

4417 

FORMATC  DO  VOU  NISH  TRANSFORMATIONS  ON  ALL  VARIABLES. 

0073 

1,  "  1  ■  YES  .  0  -  NO  *  > 

0074 

READC 1 . *  )  IFT 

0073 

I F<  IFT  .EQ  .0)G0  TO  20 

0074 

DO  19  Kal .  IV 

0077 

19 

I  DAT  A( K )■  1 

0079 

GO  TO  31 

0079 

20 

DO  21  K-l.IV 

0090 

21 

I  DAT A<  K  >-0 

0091 

22 

NRITE< 1. 4418) 

0092 

4418 

FORMAT  (  *  TRAN8F0RM  ON  VARIABLE  9  ■> 

0093 

READ< 1,0  ITRH 

0094 

I  OATA<  ITRH  )■! 

0093 

NRITEC  1.4419) 

0094 

4419 

FORMAT  <  •  ANY  MORE  TRANSFORMS  l  -  YES  ,  0  •  NO  '  ) 

0097 

READ< 1 . *  )  ITRH 

0099 

IF( ITRN.EQ. 1)G0  TO  22 

0099 

31 

NRI  TE<  1. 4420) 

0090 

4420 

FORMAT  <  *  TYPE  OF  DATA  FILE  1  ■  CONTINIOUS  .  0  »  MATR 

0091 

READU.O  I FLE 

0092 

IF< IFLE. EQ. 1 . AND .ITEST. EQ. It >  GO  TO  11 

0093 

IF< IFLE. EQ. 1  )G0  TO  32 

0094 

NRI  TE<  1.4421  ) 

0093 

4421 

FORMAT  (  *  NUMBER  OF  SUBJECTS  *> 

0094 

READU.O  H3UB 

0097 

IDPT-IV 

0099 

IV-0 

0099 

GO  TO  33 

0100 

32 

K4-K4M 

0101 

NRI TE< 1.4422)  K4 

0102 

4422 

FORMAT  <  1  NUMBER  OF  SUBJECTS  FOR  VARIABLE  »  * .  1 3  > 

0103 

READU.O  NSUB 

0104 

IDPT-1 

0103 

33 

GO  TO  <1.2.3.4.3.4.7.8.9.10.  1DITEST 
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0104  1  DO  100  K* 1 , N8UB 

0107  CALL  READF< 18 , IER, I BUF ) 

0100  CALL  CODE 

0109  READ<I8UF,IFNTX0TA<4  >,  4*1,  IDPT) 

0110  IF( K4. EQ . 0>G0  TO  102 

0111  4*K4 

0112  GO  TO  103 

0113  102  DO  101  4*1, IDPT 

0114  103  IF<  IDATA<4).E8.0>GQ  TO  101 

OHS  IF<K4.NE  .0)4-1 

0116  I F<  DTA< 4  )  .EQ.  0  >DTA<  4  )*DTA<  4  )+l 

0117  DTA<4)*l/DTA<4 > 

0110  101  CONTINUE 

0119  CALL  CODE 

0120  URI  TE<  ICUF,  IFNT1  >(DTA<4  > , 4  *1 ,  IDPT  > 

0121  CALL  URI TF< IC , IE , ICUF ) 

0122  100  CONTINUE 

0123  GO  TO  00 

0124  2  URITE< 1. 4423) 

012S  4423  FORHAT  (*  ENTER  THE  LARGEST  NEC .  VALUE  AS  AH  AB30L.  NUMBER >  • ) 

0126  RFAO<  1/0  C 

0127  DO  200  K«  1 ,  NSUB 

0128  CALL  REA0F< IB , IE , I BUF ) 

0129  CALL  CODE 

0130  READ<IBUF<IFNTXDTA<4  >,  4*1 ,  IDPT) 

0131  I F<  K4 . EQ . 0  )GQ  TO  202 

0132  4-K4 

0133  GO  TO  203 

0134  202  DO  201  4*1, IDPT 

0133  203  IF<  IDATA<4).EQ.0)G0  TO  201 

0136  IF<K4.NE. 0)4*1 

0137  IF<DTA<4 ).LT. 10)0TA<4 >*DTA<4  >+.3+C 

0138  DTA<4)-<DTA<4  )«*.S) 

0139  201  CONTINUE 

0140  CALL  CODE 

0141  URI TE<  ICUF,  IFNTl  )<DTA<4  >,4*1,  IDPT) 

0142  CALL  URITF< IC,  IE, ICUF) 

0143  200  CONTINUE 

0144  GO  TO  60 

0143  3  URITE<  1, 4424) 

0146  4424  FORHAT  <  "  ENTER  LARGEST  KEG.  HUMBER  AS  AN  ABSOL .  HUMBER  s  * 

0147  READ< 1 , •  )  C 

0148  DO  300  K* 1 , H8UB 

0149  CALL  READF< IB, IER, IBUF) 

0130  CALL  CODE 

0131  READ<IBUF,IFNTXDTA<4),4*t,IDPT) 

0132  I F<  K4 . EQ . 0  )G0  TO  302 

0133  4  *K4 

0134  GO  TO  303 

0133  302  DO  301  4*1, IDPT 

0136  303  IF<  I0ATA<4).EQ.0)G0  TO  301 

0137  IF<K4.NE. 0)4*1 

0*38  DTA( J  )*ALOG(DTA<  4  >♦ 1 +  C  ) 

0139  301  CONTINUE 
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«U4 

COLL  COOE 

out 

MRITE< ICUF, IPMTl X DTA< J  > , J -1 , IOPT > 

0142 

CALL  URI  TF<  IC,  IE, ICUF) 

0143 

300 

CONTINUE 

0144 

GO  TO  60 

0143 

5 

URITE< 1,4423) 

0144 

4423 

FORMAT  <  •  TYPE  THE  HIGHEST  POSITIVE  NUMBER  » 

0147 

REAO< 1  *  *  )  C 

0149 

URITE< 1 , 4426) 

0149 

4424 

FORMAT  <  ■  TYPE  THE  HIGHEST  NEC.  »  AS  AN 

ABSOL 

0170 

REAO< 1 1*  )  Cl 

0171 

00  300  K>1,NSUB 

0172 

CALL  REAOF( IB, IRT, IBUF) 

0173 

CALL  COOE 

0174 

REAO<  IBUF ,  IFMT  ><  DTA<  J  >,  J*l,  I OPT  > 

0175 

I  F<  K4  .  EQ  .  0  )G0  TO  302 

0174 

J-K4 

0177 

GO  TO  303 

0179 

502 

00  SOI  V-l , IOPT 

0179 

503 

IF< IOATA< J > .EQ  .0  )G0  TO  301 

0190 

I  F(  K4  .  HE  .  0)J«1 

0191 

OTA<  J  >■<  OTA<  J  >+C  1  VCC  +  C  1+1  > 

0192 

DTA<  J  )■<  ALOG( < 1  +  DTA< J >)/< 1-0TA<  J  >>>)*.  3 

0193 

501 

CONTINUE 

0194 

CALL  COOE 

0193 

URI TE< ICUF, 1FNT1 X  DTA<  J >, J-l,  IOPT > 

0194 

CALL  URI TF< IC, IEV, ICUF) 

0187 

500 

CONTINUE 

0188 

GO  TO  60 

0199 

4 

URITE< 1,4427) 

0190 

4427 

FORMAT  <  '  TYPE  CONSTANT  TO  BE  USED  i 

■  > 

0191 

READ(1.«)  C 

0192 

00  600  K-1,N8U8 

0193 

CALL  REAOF< IB, IER, IBUF) 

0194 

CALL  CODE 

0193 

REAO< IBUF, IFMT  X  OTA< J  >, J-l , IOPT) 

0194 

IF( K4. EQ . 0)G0  TO  602 

0197 

J-K4 

0198 

GO  TO  603 

0199 

602 

00  601  J«l, IOPT 

0200 

603 

IF< IOATA< J ) . EQ .0 >G0  TO  601 

0201 

I F<  K4 . HE . 0  > 1 

0202 

DTA(  J  )»OTA<  J  )  +  C 

0  20  3 

601 

CONTINUE 

0204 

CALL  COOE 

0203 

URI TE<  ICUF,  IFMT1  )<OTA<  J  ),  J-l,  IOPT  ) 

0204 

CALL  URI TF< IC, IER, ICUF) 

0  20  7 

600 

CONTINUE 

0208 

GO  TO  60 

0209 

7 

URITE< 1,4428) 

0210 

4428 

FORMAT  <  •  TYPE  C0H8TANT  TO  BE  USED  i 

"  ) 

0211 

REAO< 1 ,  * )  C 

0212 

DO  700  K-1,N8UB 

0213 

CALL  REAOF< IB, IER, IBUF) 

0214 

CALL  COOE 

•> 

NUMBER 
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0213 

READ<  IBUF  /  IFHT  )(  DTA<  J  ),  J  -1  , 1  DPT  > 

0218 

I F( K4 . EQ . 0 )C0  TO  702 

0217 

J-K4 

0218 

60  TO  703 

0219 

702 

DO  701  J-l,  IDPT 

0220 

703 

I  F<  IDATA<  J ) . E8 . 0 )60  TO  701 

0221 

IF<K4.  ME.  0)2-1 

0222 

DTA<  J  )-DTA<  J )-C 

0223 

701 

CONTINUE 

0224 

CALL  COOE 

0223 

URI  TE<  ICUF,  IFNT1  XDTA<J  >,J-l,  IOFT  > 

0228 

CALL  URITF< IC, IER, ICUF) 

0227 

700 

CONTINUE 

0228 

60  TO  80 

0229 

8 

URI TE< 1 , 4429  ) 

0230 

4429 

•OR NAT  <  •  TYPE  CONSTANT  TO  BE  USED 

0231 

REA0< 1 , *  )  C 

0232 

DO  800  K- 1 , H8UB 

0233 

CALL  READF< It* IER, IBUF) 

0234 

CALL  CODE 

0233 

READ<IBUF,IFHTXDTA<J),J-1,IDPT  ) 

0238 

I F( K4 . EO . 0  >60  TO  802 

0237 

J-K4 

0238 

60  TO  803 

0239 

802 

DO  801  J-l, IDPT 

0240 

803 

I  F<  IDATA(  J  )  .  E8 . 0  )G0  TO  801 

0241 

IF<K4.NE.0)J-1 

0242 

DTA<  J  )-DTA<  J  >-C 

0243 

801 

CONTINUE 

0244 

CALL  CODE 

0243 

URI  TE<  ICUF,  IFNT1  XDTA<J  >,  J-l,  IDPT  > 

0248 

CALL  URI TF< IC , IER, ICUF) 

0247 

800 

CONTINUE 

0248 

GO  TO  80 

0249 

9 

URI  TE<  1,980) 

0230 

980 

FORNAT (  *  TYPE  CONSTANT  TO  BE  USED  i 

0231 

READ< 1 , •  )  C 

0252 

DO  900  K- 1 , N8U8 

0233 

CALL  READF< IB, IER, IBUF) 

0254 

CALL  CODE 

0233 

READ<IBUF<IFNTXDTA<J  >,  J-l  ,  IDPT) 

0238 

IF<K4.  £6.0)60  TO  902 

0237 

J>K4 

0238 

GO  TO  903 

0239 

902 

DO  901  J-l, IDPT 

0280 

903 

IF(  IDATA<  J).E0.0)60  TO  901 

0281 

IF<  K4.  NE  .  0>J-l 

0282 

0TA<  J  >-DTA<  J  >7C 

0283 

901 

CONTINUE 

0284 

CALL  CODE 

0283 

URI  TE<  ICUF,  IFHTl  XDTA<J  >,J-l,  IDPT) 

0288 

CALL  UR I T F< IC, IER, ICUF) 

0287 

900 

CONTINUE 

0288 

60  TO  80 

0289 

10 

DO  1000  K-l ,N8UB 

0270 

CALL  READF< IB, IER, IBUF) 

0271 

CALL  CODE 
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0272 

REAOCIBUF, IFNT X DTAC 4  ) ,  J -1 , 1 OPT ) 

0273 

IFCK4.£8.0)C0  TO  1002 

0274 

J  *K4 

0273 

CO  TO  1003 

0274 

1002 

DO  1001  4*1, IDPT 

0277 

1003 

IF<  I0ATAC4). £8.0>C0  TO  1001 

0278 

IFCK4.NE. 0)4*1 

0273 

IFCDYA<4  >.LE.O.OR.O;*XJ  >.CE.  1  >C0  TO  1010 

0280 

0TAC4)*2*ATAN<<0TA<  J  >/< 1-0 TAC 4 ) > >•• . 5 > 

0281 

1001 

CONTINUE 

0282 

CALL  COOE 

0283 

URITEC ICUF »  IFH  71 X  DTA< 4  ) , 4  *1 ,  IOFT > 

0284 

CALL  URITF< XC ,  IER, ICUF) 

0283 

1000 

CONTINUE 

0284 

GO  TO  40 

0287 

1010 

URITEC  1,931  > 

0288 

931 

FORMAT  <  •  DATA  MUST  BE  PROFORT  IOHAL  -  RECHECK  DATA  1!!-, 

0289 

1TRAN8F0RM  ABORTED  *  ) 

0290 

GO  TO  42 

0291 

4 

IFC IFLE. EQ . 0 )G0  TO  430 

0292 

IFC IFLE. GT. 1 )C0  TO  420 

0293 

430 

N  *0 

0294 

SUH*0 

0293 

8UH2-0 

0294 

URITEC  1,  930  ) 

0297 

930 

FORMAT < •  DO  YOU  MANT  THE  MEAN  CALCUL.  ON  ALL  DATA  POINTS 

0298 

i/m  1  •  YES  ,  0  •  NO  •> 

0299 

REAO  <1,0  C 

0300 

420 

DO  400  K*  1 , HSUB 

0301 

CALL  REAOFC 18,  IER, IBUF) 

0302 

CALL  COOE 

0303 

REAOC  1BUF,  IFNT  X  DTAC4  ),  4*1 , 1 OPT  > 

0304 

I  F<  C  .  EQ .  0  )G0  TO  401 

0303 

DO  402  4*1, IDPT 

0304 

N*M4l 

0307 

8UN-8UH+DTAC4  ) 

0308 

8UH2*8UK2*DTA<4)**2 

0309 

402 

CONTINUE 

0310 

GO  TO  400 

031 1 

401 

IFC K4.EQ . 0>G0  TO  421 

0312 

4  *K4 

0313 

GO  TO  422 

0314 

421 

DO  400  4*1, IDPT 

0313 

422 

IFC  IDATAC4).EQ.0)G0  TO  400 

0314 

IFCK4. HE. 0)4*1 

0317 

N-M+l 

0318 

8UH»8UH->DTA<  J  ) 

0319 

8UH2*8UH2+DTAC4)**2 

0320 

400 

CONTINUE 

0321 

IFC IFLE.E8.0)GQ  TO  423 

0322 

IFLE-lFLE+1 

0323 

1 2C  K4  )*N8UB 

0324 

IFC IFLE . GT . I V )G0  TO  423 

0323 

GO  TO  32 
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6326 

423 

XN-N 

6327 

XNEAN-SUH/XN 

6328 

80-88RT<  <  SUN2-8UN*SUH/XN  V<XN-l  .  >  > 

6329 

CALL  RUNDF(  18  ) 

6336 

IX- IV 

6331 

I  V-6 

6332 

Kl-0 

6333 

IF< IFLE. EG. 0)G0  TO  431 

6334 

DO  416  K 1 -1  *  I X 

0333 

NSUB-IZ(Kl) 

6336 

431 

00  416  K-1.HSU8 

6337 

CALL  READFt IS. IER, I8UF) 

6338 

CALL  CODE 

6339 

READ<  I BUF . I FHT  ><DTA<  J  >.  J-l  .  1  DPT  > 

6346 

I F< IFLE. EQ. 6)00  TO  433 

6341 

3«K1 

6342 

GO  TO  432 

6343 

433 

DO  411  J«l.  IDPT 

6344 

432 

IF<  !DATA<J).£0.0)G0  TO  411 

6343 

1 FC IFLE. HE  0)4-1 

6346 

DTAC  4  )■<  DTA<  J >-XHEAH)/3D 

6347 

41  1 

CONTINUE 

6348 

CALL  CODE 

6349 

URI TE<  ICUF.  IFNT1  X  DTA<  J  >.4-l .  IDPT) 

6396 

CALL  WRI TF( I C  4  IER. ITUF) 

6391 

410 

CONTINUE 

6332 

GO  TO  66 

6393 

11 

I V* I  DPT 

6334 

N8UB-N9U 

6393 

I F< IFLE. HE. 1)  GO  TO  63 

6336 

N-6 

6337 

DO  3236  I-l.IV 

6338 

SUN-6. 

6399 

8UH2-0 . 

6366 

UR1TE(  1.4422)  I 

6361 

READ< 1 . •  )  N8UB 

6362 

DO  1627  4-1.N8UB 

6363 

H-N+i 

6364 

CALL  READF( IB.  IER. IBUF.  236. LEN. N> 

6363 

CALL  COOE 

6366 

READ< I BUF . IFNT  >  DAT 

6367 

SUH-SUH+DAT 

6368 

3UH2-BUH2+D AT-DAT 

6369 

1627 

CONTINUE 

6376 

X8UB-N8UB 

6371 

X8AR-8UN/X3UB 

6372 

8D-88RT( <  SUH2-3UH-8UM/XSUB  VC X8UB-1 

6373 

CALL  RUHDF<  IB  ) 

6374 

DO  1634  4-l.NSUB 

6373 

H-N-N8U8+4 

6376 

CALL  READF< IB. IER. IBUF) 

6377 

CALL  COOE 

6378 

READ< I BUF . I FNT )  DAT 

6379 

IF(  IDATA<  D.E8.6)  GO  TO  9631 

6386 

DAT-CDAT-XBAR  VSO 

6381 

9631 

CALL  CODE 
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6392 

URI TEC ICUF, IFHTi >  DAT 

6393 

M-N-H8UB+J 

6394 

CALL  URITF< IC, IER, ICUF, 6,H > 

639S 

1634 

COHT1HUE 

6394 

3234 

CONTINUE 

6397 

CO  TO  42 

6399 

43 

MSUB-N8UB 

6399 

DO  44  I«i,IV 

6396 

SUN  1  <  1  >*6  . 

6391 

44 

SUH3U  >«6. 

6392 

DO  43  !■  1  < H8UB 

6393 

CALL  READF< IB ,  IER, IBUF) 

6394 

CALL  CODE 

6393 

READ< IBUF  , IFHT >  (DTA<J),J»t,  IV) 

6394 

DO  44  1 ^ I V 

6397 

3UH1<  J  >-SUHl<  J  >  +  DTA<  J  > 

6399 

3UH3CJ  )-SUH3<  J  >+DTA(  4  >*DTA<  J  ) 

6399 

44 

CONTINUE 

6466 

43 

CONTINUE 

6461 

DO  47  J-1,IV 

6462 

X8R< J )-8UNl< J  )/X8UB 

6463 

47 

3TD<  J)«8QRT<<  8UN3<J  )-SUM  1( J >*8UH1 ( J >/XSUB  )/( XSUB-1 .  >> 

6464 

CALL  RUNDF<  IB) 

6463 

DO  48  !■  1 , N8UB 

6464 

CALL  READF< IB, IER, IBUF) 

6467 

CALL  COOE 

6469 

READ< IBUF, IFHT)  < DT A< J l > , J l- l , I V > 

6469 

DO  49  J-1,IV 

6416 

IF< IOATA< J).EQ.O>  GO  TO  49 

6411 

DTA(J)"<DTA<4  )-MBR(4))/9TD(4  ) 

6412 

49 

CONTINUE 

6413 

CALL  CODE 

6414 

URI TE<  ICUF,  IFHT1  )  <  DTA<  J  >,  J-1,IV> 

6413 

CALL  URITF< IC, IER, ICUF, 6, 1  > 

6414 

48 

CONTINUE 

6417 

CO  TO  42 

6419 

46 

IV«IV-1 

6419 

I F(  IV. GT . 6)G0  TO  32 

6426 

42 

CALL  CL08E  (IB, IER) 

6421 

CALL  CLQSC( IC  ) 

6422 

URITE<  1, 4347)  ITE8T 

6423 

4347 

FORHAT <  •  TRANSFORMATION  TYPE  M3, 

•  IS  FINISHED*  , 

6424 

1"  TO  STOP  ENTER  6,  FOR  MORE  ENTER 

ANY  OTHER  NUMBER*  ) 

6423 

REAO< 1 , *  )  LTE8T 

6424 

IF(LTEST.EB.O)  GO  TO  41 

6427 

GO  TO  36 

6429 

41 

STOP 

6429 

END 

6436 

ENOS 

30 


DSPD  (Parametric  Descriptive  Statistics) 

Purpose: 

This  program  describes  parametric  data  by  various  statistics  including 
mean,  standard  deviation,  skewness,  kurtosis,  and  range. 

User  Consideration  and  Procedures: 

« 

1.  Data  files  can  either  be  in  matrix  form  with  e  al  number  of 

variables  per  subject,  or  in  sequential  form,  n.,  where  n.  equals 

number  of  subjects  for  variables  j.  J  J 

2.  For  data  files  in  matrix  form,  the  variables  per  subject  constitute 
a  record  in  the  data  file.  A  printout  of  raw  data  would  show  j 
observations  per  line  (subject).  For  data  files  in  sequential  form, 
read  in  all  subjects  under  variable  1,  then  index  to  variable  2, 
etc.  Raw  data  printout  shows  1  observation  per  line. 

3.  The  data  can  either  be  displayed  on  the  CRT  or  a  hardcopy  can  be 

obtained  from  the  line  printer.  Option:  1  for  CRT  output,  6  for 

line  pr i nter  output . 

A.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#3). 

5.  Parameters  required: 

a.  number  of  variables  (maximum  30) 

b.  data  file  name 

c.  format  and  record  length  of  data  file 

d.  type  of  data: 

1  for  continuous  (sequential) 

0  for  matrix 

e.  for  continuous  data  file  -  number  of  subjects  for  each  variable 

f.  for  matrix  data  file  -  number  of  subjects 
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6.  Printout  gives  the  following  information  for  each  variable: 

a.  variable  number 

b.  number  of  subjects 

c.  mean 

d.  standard  deviation 

e.  skewness 

f.  kuruosis 

g.  range 

Test  Oata: 

Program  was  tested  by  comparing  data  output  with  results  obtained 
from  hardwired  programmed  functions  of  a  Texas  Instruments  calculator. 
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ftu,Dsro 

NUMBER  OF  VARIABLES  : 

8 

INPUT  FILENAME 
#FATAA 

ENTER  DATA  FORMAT 

(3(2X,F6.2)} 

ENTER  THE  RECORD  LENGTH  AS  IN  ?A3fl 
64 

TYPE  OF  DATA  1  -  CONTINUOUS  ,  0  -  MATRIX 

0 

ENTER  #  OF  SUBJECTS 
32 

ENTER  6  FOR  LINE  PRINTER  OUTPUT,  I  FOR  CRT 

6 
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****U*»ltlfJ&*,«  M+0+: 


i ■ Ahpir'  1(7 - 


VARIABLE  §  1 

NUMBER  OF  SUBJECTS  -  32 

MEAN  -  42.750 

STANDARO  DEVIATION  -  21.641 

SKEWNESS  -  581 

KURTOSIS  -  _) *204 

RANGE  -  63.000 


VARIABLE  #  2 

NUMBER  OF  SUBJECTS  -  32 

MEAN  -  48.812 

STANDARD  DEVIATION  -  23.452 

SKEWNESS  «  -  170 

KURTOSIS  -  -1 [384 

RANGE  «  75.000 


VARIABLE  ft 

NUMBER  OF  SUBJECTS  - 


MEAN  -  342.375 
STANDARD  DEVIATION  -  380.471 
SKEWNESS  -  1.1 60 
KURTOSIS  «  .247 
RANGE  -  1406.000 


VARIABLE  #  4 

NUMBER  OF  SUBJECTS  -  32 

MEAN  -  632.781 

STANDARD  DEVIATION  -  464  372 

SKEWNESS  -  1  544 

KURTOS IS-  2.590 

RANGE  -  2122.000 


VARIABLE  if 
NUMBER  OF  SUBJECTS 
MEAN  - 

STANDARD  DEVIATION 
SKEWNESS  - 
KURTOSIS  - 
RANGE  - 


5 

32 

616.656 

429.506 

1.114 

.767 


1730.00 
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VARIABLE  #  6 

NUMBER  OF  SUBJECTS  -  32 

MEAN  -  672.687 

STANOARD  DEVIATION  -  54 3. 44 5 

SKEWNESS  ■  1  776 

KURTOSIS  -  3)491 

RANGE  -  2567.000 


VARIABLE  §  7 
NUMBER  OF  SUBJECTS  -  32 
MEAN  - 

STANDARD  DEVIATION  -  3/6.128 
SKEWNESS  -  354 
KURTOSIS  -  -1.256 
RANGE  -  1264.000 


VARIABLE  # 

NUMBER  OF  SUBJECTS 
MEAN  - 

STANDARD  DEVIATION 
SKEWNESS  - 
KURTOSIS  « 

RANGE  - 


8 

32 

601 .625 
646.360 
2.235 
5.985 
3149. 000 
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0001 

FTN4 

0002 

0003 

0004 

0009 

0008 

0007 

0008 

4400 

0009 

0010 

0011 

4401 

0012 

0013 

l 

0014 

0019 

3438 

0018 

0017 

987 

0018 

0019 

0020 

0021 

78 

0022 

0023 

77 

0024 

4403 

0023 

0028 

0027 

0028 

100 

0029 

0030 

0031 

99 

0032 

0033 

0034 

0033 

0038 

0037 

4404 

0038 

0039 

20 

0040 

0041 

0042 

0043 

0044 

0043 

0048 

0047 

0048 

11 

0049 

10 

PROGRAM  DSPD 
DIMENSION  NANEC3 ) 

DOUBLE  PRECISION  D  AT<  30  )  ,  8UH(  30  >,  SUH2(  30  )  .  SUH3C  30  >. 

XSUM4< 30 ) . SHEAM< 30 ) . SKEU( 30  >,  AKURT<30  ),  SD<  30  > ,RH< 30 > . RL< 30 > 
DIMENSION  18(272).  I8UF<  236  ),  I FMT<  20 > . N8<  30  ) 

URI  TE<  1.4400) 

FORMAT  <  •  NUMBER  OF  VARIABLES  i  ‘ ) 

READ< 1 .  *  )  NV 
URI  TE<  1.4401  ) 

FORMAT  <  *  INPUT  FILENAME*  > 

READ< 1 , 1 )NAHE 
F0RHATC3A2) 

URITE(  1.3438) 

FOPMATC  *  ENTER  DATA  FORMAT  *) 

READ< 1.987)  I FHT 
FORHAT<  20A2 > 

CALL  OPEN< 18. IERR. NAME) 

I F< I  ERR. GE.O)  GO  TO  77 
URI TE< 1. 78)  NAHA. IERR 

FORM AT<  5X . 3 A J  . *  FAILED  TO  OPEN  *,I3.*  ERROR  t*> 

STOP 

URI TE<  1. 4403) 

FORMAT  <  *  TYPE  OF  DATA  1  -  C0NTINI0U8  .  0  -  MATRIX  >  * 

READU.*)  ITYP 
I F< ITYP. HE. 0)  GO  TO  99 
URI TE<  1,  100  > 

FORMAT  <  *  ENTER  •  OF  SUBJECTS  *) 

READU.*)  NSUB 
GO  TO  20 
K4-NV 

I F< ITYP. EQ. 0)G0  TO  20 

K4-NV 

NV*  1 

DO  3  JI-I.K4 
URITE< 1. 4404)  Jl 

FORMAT  (  *  NUMBER  OF  SUBJECTS  FOR  VARIABLE  t  * . 1 3  ) 
READU.*)  NSUB 
DO  2  K-1.NSU8 
CALL  READFC 18.  IER. IBUF) 

CALL  CODE 

READ(IBUF.IFNT)(DAT<J  >.  J-l.NV) 

IF(K  .GT.  1  >G0  TO  10 
DO  11  J* l » NV 
J  2*  J 

I F<  ITYP.EQ.  DJ2-J1 
RH<  J2)-0AT<  J) 

RL<  J2)*DAT(  J  ) 

00  2  J-l.NV 
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0030 

0031 

0032 

0033 

0034 

0033 

0034 

0037 

0033 

0039 

0040 

0041 

0042 

0043 

0044 

0043 

0044 

0047 

0048 

0049 

0070 

0071 

0072 

0073 

0074 

0073 

0074 

0077 

0078 

0079 

0080 

0081 

0082 

0083 

0084 

0083 

0084 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0093 

0094 

0097 

0098 

0099 

0100 

0101 


42-4 

IFC ITYP . E8 . 1  >42-41 
8UHC J2 >-8UHC42 >+DATC 4 > 

SUN2C42)«8UH2C42)+DATC4  )**2 
IFCRNC42  >.LT.DATC4  >  >RNC  4  2  >-DATC  4  ) 

IF<RL(J2  )  . G T . D ATC  4  >  )RLC  42)-DATC4) 

2  CONTINUE 

00  12  4-1, NV 
42-4 

tF< ITYP. EQ . 1)42-41 
12  RH<42)-RH(42)~RL<42)+1 

00  3  4-1. NV 
42-4 

IF< 1TYF. E8. 1)42-41 
NS( 42 )-N8UB 

SHEANC  42  )-8UN<  J2  >/H3<  42  > 

A  A-N8C 42  ) 

3  30<  42)-<  CCAA*8UH2C42>  >-<  8UH<  42>**2>>/C  AA*CAA-i  .  > )  >•*.  3 

CALL  RNNOFC IB  ) 

IFC ITYP. EQ. 0)GQ  TO  21 
DO  3  4 1- 1 <  K4 
NSU8-N8( 41  ) 

21  00  4  K-l j  N8U8 

CALL  READF< IB. IERR .  IBUF) 

CALL  CODE 

REA0<IBUF»IFNTX0AT<4  >  *  4 -l . NV  > 

00  4  4-1, NV 
42-4 

I FC ITYP. EQ. 1)42-41 

SUN3<  4  2  )-8UN3(  42  >+CDATC4  >-8HEAN<  4  2  >  >**3 
SUH4C42)-3UH4C 42  )♦<  DAT( 4  >-3HEANC42  >  >  **  4 

4  CONTINUE 

00  3  4-1. NV 
42-4 

IFC ITYP. EQ. 1  )4  2-4 1 

SKEWC4  2)-SUH3C42  VCNSC42  >*< S0< 42  )**3  )  > 

3  AKURTC  4  2  >■<  SUN4<  42 >/C  NSC  42  >*< SDC4  2  >*«4  >  >  )-3 

IFC ITYP. EQ. 1  )N V-K4 
873  UR1TEC  1 . 343  ) 

343  FORM ATC "  ENTER  6  FOR  LINE  PRIHTER  OUTPUT,  1  FOR  CRT") 
REAOC l . * )  IUHIY 

IFC < IUHIY .HE. 1 >. AND .< IUNIY  .HE  .6 >)  GO  TO  873 
MRITEC IUNIY. 3431 ) 

3431  FORHATC  *  • , "V AR9  ISUB4  NEAN  STP.DEV.*, 

C*  SKEUNESS  KURT03I 3  RANGE*) 

WRIT  EC  IUNIY. 14XC4.NSC4  ),SNEAHC4),30<4  >,SKEUC4  ),  AKURTC  4  ), 
CRHC4  >  > .  4  ■  l »  NV  ) 

14  FORHATC*  * .  14 . 2X . I  3 . 2X, F 10 . 3 , 2X , F 1 0 . 3 , 2X . FI  0 . 3 , 2X , F 1 0 . 3 , 
C2X.F10 .3) 

CALL  CLOSE  CIB) 

END 

END* 
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AV10 


(CR-k)  (One-way  ANOVA) 


Purpose: 

This  program  performs  a  one-way  analysis  of  variance  without 
repl icat ion. 

Mathematical  Model: 

The  model  for  this  design  is: 

'  J  J  IJ 

The  hypothesis  to  be  tested  is: 

Ho:  B .  ■  0  for  ail  j 
J 

The  fixed  affect  model  (Model  l)  was  assumed  in  the  derivation  of 
the  expected  values  of  the  mean  squares. 

Layout  of  Des ign: 


T  reatment 

Level s 

bl 

b2 

b3  bk 

1.  There  are  k  levels  of  treatment  B. 

2.  Subjects  are  randomly  assigned  to  the  treatment  levels  with  each 
subject  designated  to  receive  only  one  level. 

User  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  with  each  data  point  in  a  sequential 
file  with  group  one  first,  then  group  two,  etc.  (For  example, 
subject  one  for  treatment  bj  is  first  record,  subject  two  for 

treatment  bj  is  second  record  .  .  .,  then  subject  one  for  treat¬ 
ment  b^  .  .  .,  subject  n  for  treatment  bj  is  last  record.)  A  print 
out  of  the  raw  data  file  would  show  only  one  data  point  per  line. 


2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device  is 
designated  by  the  above  option  (#2). 

4.  Parameters  required: 

a.  number  of  subjects  (maximum  32767) 

b.  number  of  groups  (maximum  100) 

c.  number  of  subjects  ir,  each  group  (maximum  32767) 

d.  name  of  data  file 

e.  format  of  data  file 

5.  Printout  gives: 

a.  raw  data  by  group  (optional) 

b.  for  each  group:  N,  Ex,  Ex  ,  X,  and  SO  (unbiased  estimate) 

c.  ANOVA  source  table 


Comments : 

The  F-test  is  analogous  to  a  t-test  for  uncorrelated  data  when  the  design 
consists  of  only  two  treatment  levels.  The  advantage  of  this  ANOVA 
design  is  freedom  from  the  restriction  of  having  an  equal  number  of 
subjects  under  each  level. 

Test  Data: 


ie 

1a 


o 

tei 


e 

id 


r 


RU.AV10 
AV10  OR  CRK 

NOTE:  PROGRAM  EXPECTS  OATA  TO  BE  IN  ONE  SEQUENTIAL 
FILE  WITH  GROUP  1  FIRST  THEN  GROUP  2,  ETC. 
NOTE:  MAXIMUM  OF  100  GROUPS 
ENTER  1  FOR  CRT  OUTPUT  ,  6  FOR  LPT 
6 

DO  YOU  WANT  PRINTOUT  OF  RAW  DATA  1  -  YES  ,  0  -  NO 
1 

TOTAL  NUMBER  OF  SUBJECTS? 

32 

HOW  MANY  GROUPS?  (maximum  100) 

4 

ENTER  NAME  OF  INPUT  DATA  FILE: 

#AV20 

ENTER  INPUT  DATA  FORMAT 
(4X.F10.4) 


ENTER  SS/GP  BEGINNING  WITH  GP  ONE 
HIT  RETURN  KEY  AFTER  EACH  ENTRY 

8 

8 

8 

8 

AVI  0  :  STOP  0000 


GROUP 


1  RAW  DATA 
3.0000 
6.0000 
3.0000 
3.0000 
A. 0000 
5.0000 
4.0000 
3.0000 

GROUP  2  RAW  DATA 
7.0000 
8.0000 
7.0000 
6.0000 
7.0000 
8.0000 
9.0000 
8.0000 

GROUP  3  RAW  DATA 

I . 0000 
2.0000 
2.0000 
2.0000 
2.0000 
3.000° 

4.0000 

3.0000 

GROUP  4  RAW  DATA 

5.0000 
6 . 0000 
5.0000 
6.0000 
10.0000 
9.0000 
1 1 .0000 
10.0000 


GROUP 

1 

N 

SUMX 

SUHX2 

MEAN 

SD 

8 

31.000 

129-000 

3.875 

1.126 

2 

8 

60.000 

456.000 

7-500 

.926 

3 

8 

19-000 

51 .000 

2.375 

.916 

4 

8 

62.000 

524.000 

7-750 

2.493 

SOURCE 

SS 

SOURCE 

OF 

TABLE 

MS 

F 

P 

TOTAL 

BETWEEN 

235.500 
171 .250 

31.000 

3.000 

57.083 

24.8768 

.00000 

WITHIN 

64.250 

28.000 

2.295 
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0001 

0002 

0003 

0004 

OOOS 

0006 

0007 

OOOS 

0009 

0010 

0011 

0012 

0013 

0014 

0019 

OOU 

0017 

001S 

0019 

0020 

0021 

0022 

0023 

0024 

0029 

0026 

0027 

0029 

0029 

0030 

0031 

0032 

0033 

0034 

0039 

0036 

0037 

0039 

0039 

0040 

0041 

0042 

0043 

0044 

0049 

0046 

0047 

0048 

0049 

0090 

0091 

0092 

0093 

0094 


FTN4  /  L 

PROGRAM  A VI 0 

DOUBLE  PRECISION  8<  80  >.  BSS  ,  XBAR(  80  >,  *rA  80  >.  DATAX  .  SX  .  8S  .  SB 
DOUBLE  PRECISION  88 S< 80 > , X , BB , 8ST , S8BG , SSUG . BDF. WDF . TO F . CHS 
DOUBLE  PRECISION  WNS.F.Z.PS 
DIHENS  I  OH  N(  80  )<  INF  !LE(  3  >.  IFMT(  20  > 

DIMENSION  IB(  272  >,  IBUF<  256  > 

8X-0  . 

BS-0  . 

89-0. 

WRITE( 1,4400) 

4400  FORMAT  (  *AV10  OR  CRK " » / , 

C  ■NOTE »  PROGRAM  EXPECTS  DATA  TO  BE  IN  ONE  SEQUENTIAL"  ./, 

C  ■  FILE  UITN  GROUP  1  FIRST  THEN  GROUP  2.  ETC."./. 

C  *N0 TE i  MAXIMUM  OF  80  GROUPS "  ./. 

C  "ENTER  1  FOR  CRT  OUTPUT  .  6  FOR  LPT  "> 

READ(1.«)  I  UN  I  T 
URITE< 1.4409) 

4409  FORMAT  <  "DO  VOU  WANT  PRINTOUT  OF  RAW  DATA  1  ■  YES  .  0  »  NO" 
READ< 1 . •  )  IPTO 

WRITE< 1. 4406) 

4406  FORMAT  <  "TOTAL  NUMBER  OF  SUBJECTS?  * > 

READO.O  NSUB 

WRITE< 1. 4407) 

4407  FORMAT  <  "NOW  MANY  GROUPS?  (LIMIT  IS  80 >  "> 

REA0< 1 . *  )  NGRP 

WRITE< 1. 4408) 

4406  FORMAT  <  "ENTER  NAME  OF  INPUT  DATA  FILE'  *  > 

READ  (1.300)  INFILE 

300  FORMAT  (3A2) 

WRITE(  1. 409  ) 

409  FORMAT( "ENTER  INPUT  DATA  FORMAT  I.E.  (F10.4)  "> 

READ( 1.301  )  IFHT 

301  FORHAT( 20A2  ) 

IDCBS-2S6 

CALL  OPEN  ( 18. IER. INFILE.3.0.-2.IDCBS) 

I F ( IER.GE.0  )  GO  TO  870 
WRI TE(  1. 699  )  INFILE. IER 

699  F0RMAT(9X.3A2.  "  FAILED  TO  OPEN  .  IER  -  404". 19) 

STOP  699 

870  WRITE( 1. 4410) 

4410  FORMAT  (  "ENTER  SUBJECTS/GROUP  BEGINNING  WITH  GROUP  ONE"  ./. 
C  "HIT  RETURN  KEY  AFTER  EACH  ENTRY"  ) 

DO  3  J-l.MCRP 
3  REA0(1,*>  M(J) 

90  FORMATS.  "  GROUP",  3X."N  ",  7X,  "SUMX".  8X,  "SUMX2*  ,9X.  "MEAN"  . 

81 IX , "SO" > 

DO  9  J-l.NGRP 
LL-N( J  ) 

IF< IPT0.E8. 1 >WRITE( IUNIT.2  >J 
2  FORMATC  GROUP  ",I2,"  RAW  DATA") 

DO  4  K'l.LL 

CALL  READF( 16, IER, IBUF) 

CALL  CODE 


^5 


4093 

0094 

0037 

0098 

0099 

0040 

4 

0041 

0042 

0043 

9 

0044 

0049 

0044 

30 

0047 

100 

0048 

0049 

0070 

4 

0071 

0072 

0073 

0074 

0073 

0074 

0077 

0078 

0079 

0080 

0081 

0082 

873 

0083 

0084 

200 

0083 

0084 

0087 

0088 

0089 

0090 

0091 

0092 

READ  < IBUF, IFHT  >  DATAX 

IF< IPTO.EQ. 1 )URITE< IUHIT, IFHT >DAT  AX 

SX-8X+DATAX 

•8-BS+DATAX**2 

BB8( J >-BBS< J >+DATAX**2 

B<  J  >"B<  J >  +  DAT  AX 

XBAR< J )«B<  J  )/M<  0  ) 

8D<  J  >-DSQRT<<  BBS< J  >-<  B<  J  >*  *2  >/H<  J  >  >/<  N<  J  >-l  >  > 

CONTINUE 
URITE< IUMIT  *90 > 

DO  30  J" i / NCRP 

WRITE  <  I  UNIT,  IDO  )J  ,  N<  J  ) ,  B<  J  ) ,  BBS<  J  ),  X8AR<  ■)  )  -  S0<  <1  ) 

FORHAT( 1X« 13# 3X# 13 . 4< 3X , FI  0 . 3 > > 

Xa<  8X«*2  >/N8UB 
DO  4  L*t  #  NCRF 
B8-BB+((B<L)**2)/H(L)  ) 

SST-BS-X 

33BC-BB-X 

88WG-93-BB 

BOF-MGRP'l 

WDF-N8UB-NCRP 

T0F«M8UB- 1 

BH8-83BCXBDF 

WH8-8SWC/WDF 

F*BN8/MH8 

CALL  FPROB  <  F  »  BOF <  WDF  <  Z  <  PS  ) 

WRITE< IUNIT/875) 

FORHATC // / 1 5X / "SOURCE  TABLE  *,/) 

WRITE  < l UNI T 4  200  )  88T / TDF , SS8G, BD F , BHS , F , PS , 88 WG , UDF , WHS 
FORHAT  (./,•  SOURCE  88  DF'.lOX, 

*nn*  F  P" 

$//,•  TOTAL  *  « 2F  13 . 3  < 

*/,'  BETWEEN  *«3F13. 3. 2X>  FI  1 . 4  4  2X  4  F9 . Z , / , 

*•  WTTHIN  " *  3F 13 . 3 ) 

CALL  CLOSE  UB4IER) 

8T0P 
END 
END  $ 
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Avn 


(RB-k)  (One-way  ANOVA,  Repeated  Measures) 


Purpose: 

This  program  performs  a  one-way  analysis  of  variant  with  repli¬ 
cation  either  by  using  matched  subjects  or  repeated  measures. 

Mathematical  Model: 

The  model  for  this  design  is: 

X..»u  +  B.+tt.+E.. 
lj  J  i  ij 

The  hypothesis  to  be  tested  is: 

Ho:  B ,  -  0  for  cl  1  j 
J 

The  fixed  effect  model  (Model  i)  was  assumed  in  the  deviation  of 
the  expected  values  of  the  mean  squares. 

Layout  of  Design: 


T  reatment 

Levels 

b , 

b„ 

b,  b, 

i 

2 

3  k 

1.  There  are  k  levels  of  treatment  B. 

2.  Subjects  are  assigned  to  a  treatment  so  that  variability  within 
a  treatment  is  less  than  the  variability  among  treatments. 
Homogeneity  within  treatments  may  be  achieved  by  using  a  sub¬ 
ject  as  his  own  control  or  by  using  subjects  matched  on  the 
basis  of  a  variable  that  correlates  with  the  dependent  variable. 


User  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  with  each  data  point  in  a  matrix 
file.  On  input,  index  for  within  factor  varies  most  rapidly. 

(For  example,  first  record  is  subject  one,  treatment  bp  subject 

one,  treatment  b^  .  .  .  ,  subject  one,  treatment  ;  second  record 

subject  two,  treatment  bp  subject  two,  treatment  .  .  .  ,  subject 

two,  treatment  b^  .  .  .;  the  last  record  is  subject  n,  treatment 

b^,  subject  n,  treatment  b^  •  .  .  ,  subject  n,  treatment  b^.)  A 

printout  of  the  raw  data  file  would  show  k  data  points  per  line. 
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2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CP.T 

output,  6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 

data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2). 

4.  Parameters  required: 

a.  number  of  subjects  (maximum  32767) 

b.  number  of  groups  (maximum  100) 

c.  number  of  subjects  in  each  group  (maximum  32767) 

d .  name  of  file 

e.  format  of  data  file 

5.  Printout  gives: 

a.  raw  data  by  group  (optional) 

b.  for  each  group:  N,  Ex,  Ex  ,  X,  and  SD  (unbiased  estimate) 

c.  ANOVA  source  table 


Comments : 

The  F-test  is  analogous  to  a  t-test  for  correlated  data  when  the 
design  consists  of  only  two  treatment  levels.  This  ANOVA  design 
permits  an  experimenter  to  minimize  the  effects  of  individual 
differences.  However,  the  design  requires  that  the  population 
covariances  for  all  pairs  of  treatment  levels  be  homogeneous. 

Test  D? ta : 

This  program  was  tested  using  data  from  Roger  E.  Kirk,  Exper imenta 1 
Design  Procedures  for  the  Behavioral  Sciences,  Wadsworth  Publishing 
Company,  1968,  Pp.  132-13**. 

The  accuracy  of  this  program  is  equal  to  that  obtained  by  the  Statis¬ 
tical  Analysis  System  and  the  Statistical  Package  for  the  Social 
Sciences . 
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RU  ,AV  1  1 
AVI  1  OR  RBK 

***  ONE  WAY  ANOVA  FOR  REPEATED  MEASURES  *** 

NOTE:  DATA  NPUT  READ  SEQUENCE,  INDEX  FOR  WITHIN 

FACTOR  VARIES  MOST  RAPIDLY.  PROGRAM  EXPECTS  ALL 
DATA  TO  SE  IN  ONE  MATRIX  FILE. 

NOTE:  MAXIMUM  OF  100  TREATMENTS  (WITHIN  FACTOR) 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT: 


6 


DO  YOU  WANT  PRINTOUT  OF  RAW  DATA  1  -  YES  ,  0  -  NO 


1 

ENTER  #  SS/GP 
8 


ENTER  #  LEVELS  FOR  TREATMENTS: 
4 


ENTER  NAME  OF  DATA  FILE: 
#AV  1  1 


ENTER  FORMAT  OF  DATA: 
(4(4X, F10 .4) ) 
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« 


•mr-rm+n  nnmu' 


l 


RAW  DATA 


3.0000 

7.0000 

4.0000 

7.0000 

6.0000 

8.0000 

5.0000 

8.0000 

3.0000 

7.0000 

4.0000 

9.0000 

3.0000 

6.0000 

3.0000 

8.0000 

1 .0000 

5.0000 

2.0000 

10.0000 

2.0000 

6.0000 

3.0000 

10.0000 

2.0000 

5.0000 

4.0000 

9.0000 

2.0000 

6.0000 

3.0000 

11.0000 

TREATMENT 

N 

SUMX 

SUMX2 

MEAN 

SO 

1 

8 

22.000 

76.000 

2.750 

1.488 

2 

8 

50.000 

320.000 

6.250 

1.035 

3 

8 

28.000 

104.000 

3.500 

.926 

4 

8 

72.000 

660.000 

9.000 

1.309 

SOURCE 

SOURCE  TABLE 

SS 

OF 

MS 

F 

P 

TOTAL 

TREATMENT 

235.50000 

194.5000 

31. 

3. 

64.8333 

47.7719 

.00000 

SUBJECTS 

1 2 . 5000 

7. 

1 .7857 

1.3158 

.29097 

RESIDUAL 

28.5000 

21  . 

1 .3571 
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AV11  T *00003  18  ON  CR00002  USING  00014  BLKS  R*0000 


0001 

0002 

0003 

FTN4  , 

L 

PROGRAM  A Vi  1 

DIMENSION  I FMT! 20 ) ,  IHFI LE<  3  ) 

0004 

0009 

0008 

0007 

0008 

0000 

DOUBLE  PRECISION  S2< 8 0  ) , DMTX! 80 >, XS2! 80 >, 83 , 34 , 88 , CT, SST 
DOUBLE  PRECISION  S8S. SI  1 , S3TR , 8SER , KBAR< 80 ) , SD< 80 > 

DOUBLE  PRECISION  RMS8 , RMSTR, RM3ER , FS - FTR, TEMP 

DOUBLE  PRECISION  DFT,  DFS,DFTR,DFER,DF1 ,  DF2,  F  ,  Z ,  PS 

DIMENSION  I  B!  272  ),  I  BUF<  258  ) 
y  R  I  T  E<  1. 4400) 

0010 
001  1 

4400 

FORMAT  <  * 4 AV 1 1  OR  R8Ka 

C"  •«*  ONE  UAY  AHOVA  FOR  REPEATED  MEASURES  *••"  >//, 

0012 

C"  NOTE;  DATA  INPUT  READ  SEQUENCE  ,  INDEX  FOR  WITHIN", 

0013 

0014 

C"  FACTOR  VARIES  MOST  RAPIDLY.  PROGRAM  EXPECTS 

C"  DATA  TO  BE  IN  ONE  MATRIX  FILE.*  , , 

ALL" 

0015 
001  6 
0017 
0018 

C"  NOTE:  MAXIMUM  OF  80  TREATMENTS  WITHIN  FACTOR  *  ,//, 

CENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPTi  •) 

READ! 1 , *  )  IUNIT 

WRIT E<  1  ,  4409) 

0019 

0020 

0021 

•,409 

F 0 R M A T < “DO  YOU  WANT  PRINTOUT  OF  RAU  DATA  1  -  YES  ,  0  ■ 
READ! 1 < •  )  IPTO 

WRITE!  1,4410) 

NO 

0022 

0023 

0024 

4410 

FORMAT  <  "ENTER  •  SUBJECTS/GROUP  "> 

READ! 1 ,*  )  NS 

WRITE! 1,4411) 

0029 

0028 

0027 

4411 

FORMAT  !  "ENTER  •  LEVELS  FOR  TREATMENTS)  ") 

READ! 1 , *  )  HLU 

WRITE! 1,4412) 

0028 

0029 

4412 

FORMAT  !  "ENTER  NAME  OF  DATA  FILE)"  ) 

READ!1,108)INFILE 

0030 

0031 

0032 

0033 

0034 

108 

FORMAT! 3A2> 

I DCBS*29G 

CALL  OPEN! IB, IER, INFILE, 3, 0, -2, IDC88) 

IF!  IER  GE  .0  >G0  TO  101 

WRITE! 1, 4413)  INFILE, IER 

0035 

0038 

4413 

F0RMAT(3X,3A2, 5X, "DATA  FILE  FAILED  TO  OPEN,  IER  -  ",I5 
STOP  4413 

) 

0037 

101 

WRITE! 1,4414) 

0038 

0039 

4414 

FORMAT  !  "ENTER  FORMAT  OF  DATA)  I.E  !4F10.4>  •> 

READ! 1 , l 02  )  IFMT 

0040 

0041 

102 

FORMAT ! 20 A2  ) 

IF!  IPTO.  EQ.  DURITE!  IUNIT,  1  ) 

0042 

0043 

0044 

0045 

l 

FORMAT! "  RAW  DATA" > 

DO  20  K-1,NS 

CALL  READF! IB, IER, IBUF, IDC8S  ) 

CALL  CODE 

51 


0044 

0447 

0048 

0048 

0090 

0091 

0032 

0093 

0094 

0099 

0094  10 

0097 

0099  20 

0059 

0040 

0041 

0042 

0043 

0044  30 

0043 
0044 
0047 
0048 
0049 
0070 
0071 
0072 
0073 
0074 
0075 
0074 
0077 
0078 
0079 
0080 
0081 
0082 
0043 
0084 
0089 
0084 

0087  30 

0088 

0089  91 

0090 

0091 

0092 

0093 

0094  103 

0093 

0094 

0097 

0098 

0099 

0100 

0101 


REA0<  IBUF  ,  I FHT  )<  DMTX<  J  > ,  J*  l ,  NLU  ) 

IF< IPT0.E8. 1 ) VRI TEC IUNI T , I FNT X DMTXC 4 ) , J- 1 , NLU ) 

TEMP-0 

00  10  I»  t ,  NLU 
NM-NM+1 

82< I >-82< i  > ♦DMTXC I ) 

XS2<  I  >-XS2(  DfONTXC  I)**2 
S3-S3+DHTXC I>**2 
8  4»  8  4*  DHT  X<  I> 

TEHP*TENP+OMTXCI ) 

CONTINUE 

3 8*8 8* TEMP* *2 

CONTINUE 

CT-S4**2/NH 

$$T«S3-CT 

SSS-<S8/HLU)-CT 

DO  30  1*1, NIM 

XBARC I >-82( I ) /NS 

S  1 1  -SI  1  ♦  S2C I >**2 

Sll-Sll/NS 

SSTR*8 1 1 -CT 

SSER-33T-SS3-3STR 

OFT-NH-l 

DFS-NS-l 

DFTR-HLW-1 

DFER-OFT-DFS-DFTR 

RMSS-SSS/DFS 

RHSTR-83TR/DFTR 

RN3ER-4SER/DFER 

FS-RHSS/RHSER 

FTR-RMSTR/RN3ER 

DF1-DFS 

DF2-0FER 

F«FS 

CALL  FPR08C  F, DF1 , DF2, Z,  PS ; 

DFl-OFTR 

DF2-0FER 

F-FTR 

CALL  FPR0B<F,0Fl,DF2«Z»PTR> 

DO  30  1*1,  NLU 
A  NS  ■  NS 

SD<  I  >aD3QRT<<  ANS*XS2<  I  )-<  S2<  I  >• *2 > >/C ANS*C A  NS- l .  )  )) 

URl  TEC  IUNIT/91  )(  I ,  NS, S2C  I  > ,  XS2C  I  >  *  X8AR<  I  >  , 3DC  I  )»  1  *1 , NLU  > 
FORNATC // ,  '  TREATMENT  N  SUHX  SUHX2 

♦  MEAN  SO'.//, 

#C 17, 8X, I3,4X, F10 .3, 2X.F10. 3, 2X, FIO , 3,2X,F10 . 3>  > 

VRI  TEC  IUHIT,  103>SST,DFT, S3TR, DFTR, RM3TR,FTR, PTR, SSS,DFS,  RHS8, 
9FS, PS, SSER, DFER, RMSER 

FORNATC///, 15X, 'SOURCE  TABLE  ',///. X, ■ SOURCE  ” , 1 2X<  *SS " , 9X , 
9'0F',11X, "NS", 1 1 X,  "F'/lOX, 'P ' , //» '  TOTAL" ,  9  X  » F 12  . 4# IX, F4 .0# 
•/,'  TREATMENT  "<2X,F12.4,1X,F4.0,3X,F12.4#3X,F10.4,3X, 
XF4.5,/,'  SU8JECTS  ■ , 4X , F! 2 . 4 , 1 X, F4 . 0, 3X, Fl 2 . 4 , 3X , F 10 . 4, 3X , 

LF  6 . 5 , / j “  RESIDUAL  ’ ,  •  < , F l 2 . 4 , l X , F 8 . 0 , 3X , Ft  2 . 4  ) 

CALL  CLOSEC  18  ) 

END 

EN04 


52 


AV20 


(CRF-P.Q.)  (Two-way  ANOVA) 


Purpose: 

This  program  performs  a  two-way  completely  randomized  facotrial 
analysis  of  variance  without  replication. 

Mathematical  Model: 


The  model  for  this  design  is: 

X,  .  •  u  +  A,  +  B,  +  AB, .  +  E 
ijm  i  J  ij 

The  hypotheses  to  be  tested  are: 


m  ( i  j ) 


Ho:  A.  ■  0  for  al 1  i 

i 

Ho:  Bj  -  0  for  all  j 
Ho:  AB j j  ■  0  for  all  1  j 

The  fixed  effect  model  (Model  I)  was  assumed  In  the  derivation  of 
the  expected  values  of  the  mean  squares. 

Layout  of  Design: 


A1 

A2 

A3 

B1 

B2 

Bl 

B2 

B1 

B2 

S1 

S2 

S3 

S4 

S5 

S6 

S  represents  a 
set  of  subjects 


1.  There  are  two  factors  (A,B)  with  p  and  q  levels  of  treatments 
respectively.  The  experiment  consists  of  pq  treatment  combin¬ 
ations.  The  above  example  includes  three  levels  of  Factor  A, 
two  levels  of  Factor  B. 

2.  Subjects  are  randomly  assigned  to  the  pq  treatment  combinations, 
with  each  subject  receiving  only  one  combination. 

3.  There  should  be  more  than  one  subject  per  pq  treatment  combinations 


User  Considerations  and  Procedures: 


1.  A  data  file  must  be  created  with  each  data  point  in  a  sequential 
file.  On  input,  Factor  B  varies  most  rapidly,  then  Factor  A. 

(For  example,  first  record  is  subject  one  for  treatment  abj ^ , 

second  record  subject  two,  treatment  ab^  ...»  then  subject 
one  treatment  ab  ^  ^ ,  next  is  subject  two,  ab^  •  •  •»  then 
subject  one  treatment  ab^j  .  .  .,  final  record  would  be  sub¬ 
ject  n  for  treatment  ab  .)  A  printout  of  the  raw  data  file 

pq 

would  show  one  data  point  per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  I  for  CRT 
output,  6  for  line  printer  output. 

3.  A  printout  of  raw  data  can  be  obtained.  Option:  I  if  a  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2). 

A.  Parameters  required: 

a.  number  of  levels  of  Factor  A  (maximum  30) 

b.  number  of  levels  of  Factor  B  (maximum  30) 

c.  number  of  subjects  per  AB  cell  (maximum  32767) 

d.  name  ofNiata  file 

'4 

e.  format  of  data  file 
5.  Printout  gives: 

a.  raw  data  (option) 

b.  for  each  cell:  E,  Ex  ,  X,  SD  (unbiased  estimate) 

c.  ANOVA  source  table 

Comments : 

Program  uses  least  square  analysis  for  unequal  cell  sample  sizes.  This 
ANOVA  design  permits  interaction  effects  to  be  evaluated.  Power  tests 
can  be  used  to  determine  the  number  of  subjects  necessary  for  the 
experiment . 
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Test  Data: 


This  program  was  tested  using  data  from  Roger  E.  Kirk,  Exper imenta 1 
Oesiqn  Procedures  for  the  Behavioral  Sciences,  Wadsworth  Publishing 
Company”  1  $68',  P>p.  I  75-176". - 

The  accuracy  of  this  program  is  equal  to  that  obtained  by  the  Statis¬ 
tical  Analysis  System  and  the  Statistical  Package  for  Social  Sciences. 


RU.AV20 
AV20  OR  CRFPQ 
REF:  BRUNING  &  KINTZ,  1 968 
SECTION  2.2 

FACTORIAL  DESIGN:  TWO  FACTORS 

NOTE:  PROGRAM  CALCULATES  LEAST  SQUARES 
SOLUTION  IF  UNEQUAL  CELL  N'S 
NOTE:  ON  INPUT  DATA  READ  SEQUENCE,  INDEX 
FOR  FACTOR  B  VARIES  MOST 
RAPIDLY.  PROGRAM  EXPECTS  DATA  TO  BE  IN 
ONE  SEQUENTIAL  FILE. 

NOTE:  MAX  30  *  30  DESIGN 
ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT: 

6 

DO  YOU  WANT  TO  PRINT  OUT  OF  RAW  DATA  1  -  YES  ,  0  « 

1 

ENTER  INPUT  DATA  FILE  NAME: 

#AV20 


ENTER  INPUT  DATA  FORMAT: 
(4X.F10.4) 

ENTER  #  LEVELS  ON  FACTOR  A  &  B: 
2,4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  1 

ENTER  #  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  2 

ENTER  §  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  3 

ENTER  #  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  4 

ENTER  #  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  1 

ENTER  §  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  2 

ENTER  #  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  3 

ENTER  #  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  4 

ENTER  #  SS  THIS  CELL: 

4 
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GROUP 


1  1  RAW  DATA 

3.0000 
6.0000 
3.0000 
3.0000 

GROUP  1  2  RAW  OATA 

4.0000 
5.0000 
4.0000 
3.0000 

GROUP  13  RAW  DATA 

7.0000 
8.0000 
7.0000 
6.0000 

GROUP  14  RAW  DATA 

7.0000 
8.0000 
9.0000 
8.0000 

GROUP  21  RAW  OATA 

1 .0000 
2.0000 
2.0000 
2.0000 

GROUP  2  2  RAW  DATA 

2.0000 
3.0000 
4.0000 
3.0000 

GROUP  23  RAW  DATA 

5.0000 
6.0000 
5.0000 
6.0000 

GROUP  24  RAW  DATA 

10.0000 
9-0000 
1 1 .0000 
10.0000 


CELL 

N 

SUHX 

1  1 

4 

15.000 

1  2 

4 

16.000 

1  3 

4 

28.000 

1  4 

4 

32.000 

2  1 

4 

7.000 

2  2 

4 

12.000 

2  3 

4 

22.000 

2  4 

4 

40.000 

SOURCE 

SS 

DF 

TOTAL 

235.500 

31. 

FACTOR  A 

3.125 

1  . 

FACTOR  B 

194.500 

3. 

A  *  B 

19.375 

3. 

SUMX2 

MEAN 

63.000 

3.750 

66.000 

4.000 

198.000 

7.000 

258.000 

8.000 

13.000 

1.750 

38.000 

3.000 

122.000 

5.500 

402.000 

10.000 

MS 

F 

P 

3.125 

4.054 

.052693 

64.833 

84.108 

.000000 

6.458 

8.378 

.000788 

AV20  T*00003  IS  ON  CR00002  USING  00018  BLKS  R-0000 


0001 

0002 

0003 

0004 

0003 

0008 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0019 

0018 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

002S 

0028 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0033 

0038 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0043 

0048 

0047 

0048 

0049 

0030 

0031 


FTN4 ,  L 

PROGRAM  A V20 

DOUBLE  PRECISION  SX2<  20 , 20  >,  82<  20 , 20  >,  S8<  20  > ,  S  7<  2  0  > ,  R  0  AT  A 
D0U8LE  PRECISION  S3 - S4, C T, S3 T , S3A , SSB, P AB , P8 
D0U8LE  PRECISION  SSA8,3SER,NS8,MSA,MSA8,HSER,FA,FB,FAB 
DOUBLE  PRECISION  TSS, XBAR, DFT , DFA , DFB, DFAB, DFER, F , DFl . DF2, Z , PA 
DIMENSION  IB<  272  >,  IBUF<  236  > 

DIMENSION  N3<20,20),IFNT(20),N86(?0),NS7(20) 

DIMENSION  I HF I LE<  3  ) 

URI TE( 1/4400) 

4400  FORMAT  (  *AV20  OR  CRFPQ** 

C  *  REF  t  BRUNING  i  K INTZ /  1968* 

C  *  SECTION  2.2*  ,/, 

C  "FACTORIAL  DESIGN)  TWO  FACTORS*  ,A 
C  "  NOTE:  PROGRAM  CALCULATES  LEAST  SQUARES*  /// 

C  *  SOLUTION  IF  UNEQUAL  CELL  N'S*  /) 

URI TE<  1/ 4401  ) 

4401  FORMATC  NOTE)  ON  INPUT  DATA  RE  AO  SEQUENCE/  INDEX* 

C  *  FOR  FACTOR  8  VARIES  MOST* 

C  *  RAPIDLY.  PROGRAM  EXPECTS  DATA  TO  BE  IN* 

C  *  ONE  SEQUENT  IAL  FILE. *  , / , 

C  "  NOTE)  MAX  20  *  20  DESIGN*  ,  //  ) 

290  WRITE< 1,4411) 

4411  FORMAT  <  *  tEHTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT)  *> 

REAO< 1 , *  )  tUH  IT 

IF< IUHIT.NE.l .AND.  I  UN  IT. NE. 6)  GO  TO  290 
URITE< 1,4412) 

4412  FORHATCDO  YOU  WANT  TO  PRINT  OUT  OF  RAW  DATA  1-  YES  ,  0-  NO') 
READ< l ,  •  )  IPTO 

URI TE< 1 . 4413) 

4413  FORMAT  <  "ENTER  INPUT  DATA  FILE  NAME)"  ) 

READ< 1 , 194>INFILE 

194  FQRHAT<  3A2  ) 

191  F0RMAT(20A2) 

I  DC  B S" 236 

IF< LENGTH .LT. 144  )  IDCBS-144 

CALL  OPEN< IB, I ER , I NFI LE , 3, 0. -  2, I  DC BS  ) 

I  F<  I  ER  .  GE  .  0  )G0  TO  19133 
URITE< 1, 4414)  IER 

4414  FORMAT  <  *N0  OPEN  INPUT  DATA  FILE,  IER  •  "15  > 

STOP 

19135  URI TE< 1,4413) 

4413  FORMAT  <  'ENTER  INPUT  DATA  FORMAT)  I.E.  <  F l 0 . 4 ) *  ) 

READ< 1 , 191 >IFMT 
URI TE< 1, 4416) 

4416  FORMAT  (  'ENTER  I  LEVELS  ON  FACTOR  A  i  B>  "> 

READ< l , *  >  NLA/NLB 
HGPS-NLA*NLB 
DO  1915  LA-1, NLA 
DO  1913  LB-1/NL8 
URI TE< 1,4417)  LA 
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0032 

4417 

FORMAT  (  •FACTOR  A  .  LEVEL!  • *  13  ) 

0033 

UR! TE( 1.4418)  L8 

0034 

4418 

FORMAT  <  "FACTOR  8.  LEVEL!  •.IS  > 

0033 

U R I  TEC  1.4419) 

0036 

4419 

FORMAT  <  ‘ENTER  1  SUBJECTS  THIS  CELL!  •) 

0037 

READC  i  <  *  )  HSCLA.L8) 

0039 

K-NSCLA. LB) 

0039 

TS$«TSS*K 

0060 

IF<  IPTO.EQ.  DURITEC  IUNIT  >2  )LA.LB 

0061 

2 

FORNATC *  GROUP  *.213.*  RAU  DATA*) 

0062 

DO  1914  N-l.K 

0063 

CALL  READFC IB. IER. I8UF) 

0064 

CALL  COOE 

0063 

READC IBUF. IFMT )RDATA 

0066 

IF<  IPTO.EQ.  DURITEC  IUNI T  .  IFMT  )RDATA 

0067 

S2CLA.LB)«S2CLA.LB  >  +  R  DA  T  A 

0068 

S3»S3+RDATA**2 

0069 

S4«S4*RDATA 

0070 

S6CLA)«S6(LA)+RDATA 

0071 

S7CLB)«S?CLB)  +  RDATA 

0072 

NS6CLA  >«NS6(  LA  >  +  1 

0073 

HS7C LB  >«NS7CLB  )♦ 1 

0074 

SX2CLA.L8 >«SX2CLA»LB)+RDATA**2 

0073 

1914 

CONTINUE 

0076 

1913 

CONTINUE 

0077 

URITEC IUNIT .3004 ) 

0078 

DO  3003  I  la  1 . NLA 

0079 

DO  3003  12-1, MLB 

0080 

XBAR-S2C  11.  12  ) /NSC  11.-  12) 

0081 

ANSaHSC 11.12) 

0082 

SD-OSQRTC  CANS*SX2C 1 1. 12  >-82< 11. 12  >**2>/ 

0083 

*C  AHS *<  ANS-1  .  )  )  ) 

0084 

3003 

URITEC  IUHIT,30DI1.I2.N3(II.I2).S2CI1,I2>.SX2(  11.  12).  X  BAR 

0083 

3004 

FORMATC  *0  CELL  N  SUMX  SUMX2  MEAH 

0086 

SD  •  > 

0087 

301 

F0RMATC2X.2I3. 3X . I4.3X. 4C IX. F10 .3 > ) 

0088 

CTaS4*«2/TSS 

0089 

3ST-S3-CT 

0090 

00  699  LA-t.NLA 

0091 

699 

SSA«SSA+86C  LA  >**2/NS6CLA  > 

0092 

SSA-SSA-CT 

0093 

DO  799  LB-l.NLB 

0094 

79  9 

SS8-SS8+ S 7<  LB  >*«2/NS7< LB  > 

0093 

3S8-SSB-CT 

0096 

DO  899  LAal.NLA 

0097 

DO  899  LBal.HLB 

0098 

899 

SSABaSSAB  +3  2C LA. LB  >**2/ NSC  LA . LB  > 

0099 

SSA8-S3AB-SS*  SS8-CT 

0100 

SSER-SST-SSA-SSB-SSAB 

0101 

DFT-TSS-1 

0102 

DFA-NLA-l 

0103 

DF8-NLB-1 

0104 

DFABaDFA*DF8 

0103 

DFE R »0 FT  - DF A- DFB-D FAB 

0106 

NSA-SSA/DFA 

0107 

N8B-SSB/DFB 

0108 

MSAB-8SAB/0FAB 

0109 

MSERaSSER/DFER 
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0110 

0111 

0112 

0113 

0114 

0119 

one 

0117 

0119 

0119 

0120 

0121 

0122 

0123 

0124 

0123 

0126 

0127 

0129 

0129 

0130 

0131 

0132 

0133 


FA-NSA/HSER 

F0-HSB/N3ER 

FAB-N9A8/HSER 

F«FA 

DFi-OFA 

DF2-DFER 

CALL  FPR0B<F#DFliDF2.  Z#  PA  > 

F-FB 

0FI-0F8 

0F2-DFER 

CALL  FPROB<F.  DFl  .DF2.  Z,  P8> 

F-FAB 

DFl-OFAB 

DF2-DFER 

CALL  FPR08<F.DF1.0F2.Z,PAB> 

WRITE<  IUNIT, 12  99  >33 T, DFT.83A. OF  A*  HSA , F A , PA. 8S8 
4SSAB.DFA8.H8AB.FAB.  PAB . SSER  < DFER. M-ER 
1299  FORM AT<  "  0  SOU RC E" . 8X . “ S S * . 5X , ■ DF * . 6X ,  ■ MS # , 9 X , 
*•  T0TAL*.6X.F10.3.F3.O(>'3X.  "FACTOR  A  ".F10.3.F5 
03X » *  FACTOR  B  ■ , F 1 0 . 3. F3 . 0 . 2F 1 0 . 3. F 1 0 . 6 / 3X . *  A  * 
»F5. 0.2F10 .3/F10. 6. /3X. "ERROR  "  .  F  1  0 . 3.  F3 . 0. F  10 
CALL  CLOSE< IB. I E  R  > 

END 

EHD* 


>  DFB< MSB.FB.  PB. 

■F'/llX. •?*// 
0.2F10.3.F10.4/ 
8’  .  4X. FiO .3, 

.3  ) 
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AV21B 


(SPF-P.Q.) 


(Two-way  Split  Plot  ANOVA,  Repeated  Measures) 


Purpose : 


This  program  performs  a  two-way  split-plot  or  mixed  analysis  of 
variance. 

Mathematical  Model: 

The  model  for  this  design  is: 


X.  .  =»  u  +  A,  +  B.  +  AB.  .  +  7T 
i j  m  i  j  i  j  m(i) 

The  hypotheses  to  be  tested  are: 

Ho :  A ,  ■  0  for  a  1 1  i 

i 

Ho:  8 .  ■  0  for  al 1  j 
J 


+  Bw 


jm(i)  +  Eo(ijm) 


Ho:  AB . .  *  0  for  al 1  i j 
'J 

The  mixed  effect  model  (Model  III)  was  used  in  the  derivation  of 
the  expected  values  of  the  mean  squares. 

Layout  of  Design: 


S  represents  a 
set  of  subjects 


1.  There  are  two  Factors  (A  and  B)  with  p,  q  levels  of  treat¬ 
ments  respectively.  Factor  A  is  designated  as  the  between 
block  or  nonrepeated  measure.  Factor  B  is  the  within  block 
repeated  measure.  The  above  example  includes  two  levels  of 
Factor  A,  three  levels  of  Factor  B. 


?..  Subjects  from  a  common  population  are  randomly  assigned  to 
the  levels  of  Factor  A.  After  this,  levels  of  treatment  B 
are  assigned  randomly  to  the  subjects  except  when  the  nature 
of  the  repeated  measure  precludes  randomization  of  the  pre¬ 
sentation  order. 
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Comments : 

Program  uses  least  squares  a ~ r 1 y s i s  for  unequal  cell  sizes  on  Factor  A. 
This  ANOVA  design  permits  interaction  effects  to  be  evaluated.  In  a 
split-plot  design,  estimates  of  the  within  block  (Factor  B  and  inter¬ 
action  AB)  effects  are  more  accurate  than  estimates  of  between  block 
(Factor  A)  effects.  If  an  experimenter's  primary  interest  is  in  the 
within-block  effects,  a  split-plot  design  is  more  powerful  than  a 
randomized  factorial  block  design  (AV22)  .  However,  if  equal  precision 
fer  all  treatment  effects  is  desired,  the  average  power  of  a  random¬ 
ized  factorial  block  design  is  greater.  Power  tests  can  be  used  to 
determine  the  number  of  subjects  necessary  for  the  experiment. 


Test  Data: 


This  program  was  tested  using  data  from  Roger  E.  Kirk,  Experimental 
Design  Procedures  for  the  Behavioral  Sciences,  Wadsworth  Publishing 
Company,  1968,  Pp.  2M9"251 - 

The  accuracy  of  this  program  is  equal  to  that  obtained  by  the  Statis¬ 
tical  Analysis  System  and  the  Statistical  Package  for  Social  Sciences. 
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1 


RU.AV21B 
AV21B  OP  SPFPQ 
REF:  8RUNING  &  KIMTZ,  1968 
SECTION  2.7 

TWO  FACTOR  MIXED  DESIGN:  REPEATED  MEASURES  ON  ONE  FACTOR 
NOTE:  PROGRAM  CALCULATES  LEAST  SQUARES  SOLUTION 
IF  UNEQUAL  CELL  N'S 

NOTE:  ON  INPUT  DATA  READ  SEQUENCE,  INDEX  FOR 

WITHIN  FACTOR  (8)  VARIES  MOST  RAPIDLY. 

PROGRAM  EXPECTS  ALL  DATA  TO  BE  IN 

ONE  MATRIX  FILE. 

NOTE:  MAX  25B  *  25W  DESIGN 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT  OUTPUT: 

* 

o 

DO  YOU  WANT  TO  PRINT  OUT  DATA  1  -  YES  ,  t  -  NO 
1 

ENTER  INPUT  DATA  FILE  NAME: 

#AV  1 1 


ENTER  INPUT  DATA  FORMAT: 

(4(4X,F10.4) ) 

ENTER  §  LEVELS  FOR  8ETWEEN  FACTOR  (MAX  25): 
2 

ENTER  #  LEVELS  FOR  WITHIN  FACTOR  (MAX  25): 

4 

GROUP  NUMBER.  1 

ENTER  NUMBER  OF  SUBJECTS  IN  THIS  GROUP: 

4 

GROUP  NUMBER:  2 

ENTER  NUMBER  OF  SUBJECTS  IN  THIS  GROUP: 

4 
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GROUP : 

1  RAW  DATA 

3.000 

7.000  A. 000 

7.000 

6.000 

8.000  5.000 

8.000 

3.000 

7.000  A. 000 

9.000 

3.000 

6.000  3.000 

8.000 

GROUP: 

2  RAW  DATA 

1.000 

5.000  2.000 

10.000 

2.000 

6.000  3.000 

10.000 

2.000 

5.000  A. 000 

9.000 

2.000 

6.000  3.000 

11.000 

CELL 

N 

SUMX 

SUMX2 

MEAN 

STD  DEV 

1  1 

A 

15.000 

63.000 

3.750 

1 .500 

1  2 

A 

28.000 

198.000 

7.000 

.816 

1  3 

A 

16.000 

66.000 

A.  000 

.816 

1  A 

A 

32.000 

258.000 

8.000 

.816 

2  1 

A 

7.000 

13.000 

1  .750 

.500 

2  2 

A 

22.000 

122.000 

5.500 

.577 

2  3 

A 

12.000 

38.000 

3.000 

.816 

2  A 

A 

AO.  000 

A02.000 

10.000 

.816 

SOURCE 

ss 

DF 

MS 

F 

P 

TOTAL 

235.500 

31  . 

BETWEEN 

12.500 

7. 

FACTOR 

A 

3.125 

1 . 

3.125 

2.000 

.205762 

ERROR  i 

BTW 

9-375 

6. 

1.562 

WITHIN 

223.000 

24. 

FACTOR 

B 

I9A.500 

3. 

64.833  127.890 

.000000 

A  *  8 

19.375 

3. 

6.458 

12.740 

.000228 

ERROR  W/IN  9.125 

18. 

.507 
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•AV218  T-00004  IS  ON  CR00002  USING  00023  BLKS  R-0192 


0001 

FTH4 

0002 

0003 

0004 

0003 

0004 

0007 

0008 

0009 

0010 

0011 

0012 

4400 

0013 

0014 

0013 

0014 

0017 

0018 

0019 

4406 

0020 

0021 

0022 

0023 

0024 

1 

0023 

4411 

0024 

0027 

0028 

0029 

4412 

0030 

0031 

0032 

4413 

0033 

0034 

83 

0033 

0034 

0037 

0038 

0039 

44  14 

0040 

0041 

80 

0042 

0043 

44  13 

0044 

0043 

0044 

4416 

0047 

0048 

0049 

0030 

4417 

0031 

0032 

44  18 

0033 

C 

c 

c 

c 

c 


c 

c 

c 

c 


PROGRAM  AV21B 
ROUBLE  PRECISION 
D0U8LE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DOUBLE  PRECISION 
DIMENSION  I B<  272 
WRI  T  E(  1.4400) 
FORMAT  (  "AV21B 
•REF J  8RUNINC  4 
•SECTION  2.7* 
■TOO  FACTOR  NINE 
•  NOTE:  PRO 

•  IF 


DVECTR<  20  ).  8A8X<  20>.SASX2(  20>.SS(20> 

MSC. NSERRB. MSTR. MSTRXC.FC. FYR.2.PC.PTR.PTRXC 
DSX<  20.20  ),  DSX2C  20, 20  > ,  GSX2C  20  > ,  CSX<  20) 
TEMP.TSX2.CT ,8ST, SSC, SSB.SSW. FTRXC.F , DF 1 . DF2 
HSERRU. GT.8STRXC. SSTR.DFTRXC.  DFSERW 
SIG(  20. 20  >.  3AXS2<  20  ).  XBARC  20. 20  ) .  T  HS  ,  SSERRB 
8SERRU. DFS8.DFST.DFSC.DFSERB. DFSU. DFSTR 

>.  IBUF<  2  34  >.  I  FILE <  3>.NSS(  20  ).  IFHT<20> 

OR  SPFPQ*  ,/, 

KINT2,  1948  *  ,/, 

./ . 

D  DESIGN)  REPEATED  MEASURES  OH  ONE  FACTOR* . /  > 

CRAM  CALCULATES  LEAST  SQUARES  SOLUTION"./. 
UNEQUAL  CELL  N'S*  > 


WRI  TEC 1.4404) 

FORMAT  (  *  NOTE)  ON  INPUT  DATA  READ  SEQUENCE.  INDEX  FOR*./. 

*  WITHIN  FACTOR  <B)  VARIES  MOST  RAPIDLY.*  ./. 

*  PROGRAM  EXPECTS  ALL  DATA  TO  BE  IN"  ,/, 

*  ONE  MATRIX  FILE  .*  ,/, 

*  NOTE)  MAX  2 OB  *  20W  DESIGN*  > 

WRI T  E< 1.4411) 

FORMAT  <  *  OEHTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT  OUTPUT:  *) 

READCl.O  I  UN  I  T 

IF< IUMIT . HE . 1 . AND. IUNIT . HE .4 >G0  TO  97 
WRI TE< 1.4412) 

FORMAT  <  * D 0  YOU  WANT  TO  PRINT  OUT  DATA  1  «  YES  ,  0  -  NO  *) 
READ< 1 . * )  IPTO 
WRI T  E(  1.4413) 

FORMAT  <  'ENTER  INPUT  DATA  FILE  NAME:*  ) 

READ<  1,83  HFILE 
F  ORMAT  <  3A2  > 

IDCBS-236 

CALL  0P£M(IB.IER,IFILE,3,0,-2,IDCBS> 

I  F<  IER  .LT  .0  )G 0  TO  98 
WRI TE< 1.4414) 

FORMAT  <  *EMTER  INPUT  DATA  FORMAT  I.E.  (4F10.4)*  > 

READ( 1 ,80  ) I FM T 
FORM  AT  <  20  A2  ) 

WRI T  E  <  1.4413) 

FORMAT  <  *|ENTER  •  LEVELS  FOR  BETWEEN  FACTOR  (MAX  20):  ■  ) 

READCl . • )  NGPS 
WRI  TEC  1.4416) 

FORMAT  <  ‘4ENTER  •  LEVELS  FOR  WIT.UN  FACTOR  (MAX  20):  ■  > 

READC1 ,«  )  NLW 

DO  19  HC-l.NGPS 

WRITE< 1.4417)  NG 

FORMAT  (  'GROUP  NUMBER:  *,I5  ) 

WRI TEC  1.4418) 

FORMAT  (  'ENTER  NUMBER  OF  SUBJECTS  IN  THIS  GROUP:  *  ) 

REAOCl.O  ISS 
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•  054 
0458 
0054 
005? 
0058 
0050 
0040 
0041 
0042 
0043 
0044 
0045 
0044 
004? 
0048 
0049 
0070 
0071 
0072 
0073 
0074 
0075 
0074 
007? 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0084 
008? 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0094 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0104 
0107 
0108 
0109 
0110 


TM8-TNS+ISS 
N38CNC  >-lSS 

1F< I  PTO . EG . 1 >8RIT£< IUNIT  <2  >HC 
2  FORMAT <  *  CROUP  >  *,I3,*  RAU  DATA*) 

DO  10  42-  1 ,  188 

CALL  READF( IB, IER, IBUF) 

CALL  CODE 

REAP<  I  BUF  ,  IFMT  )(  DVECTRC  4  1  ) ,  4  1*1  ,  HLW) 

TENP-0  . 

IF< IPTO.EO. 1 )8RITE( IUMIT ,9 )< DVECTRC43), 4  3*1 , HLW) 

9  FORMAT < 1 0F9 . 3  > 

DO  7  4 1 ■ 1 , NLW 
TENP-TEHP+DVECTRC4 1  > 

8A8X<NC)-SASX<  MG  >+DVECTR  <J1) 

8  A8X2< MC )»SASX2<  NG  >+DVECTR< J  1  >**2 
D8X<  MG, 4 1 >-DSX<NC, J 1  >+DVECTR<  41  > 

DSX2C  NG , 4 1 )-D8X2<NG ,4  »  >  +  DVECTR< 4 1 )**2 
7  CONTINUE 

3 AX82<  MC  )-SAXS2<  HC  >*TEMP**2 

10  CONTINUE 

S3(  MC  >»‘.4SS<  NG  ) 

DO  11  4 1 ■  1 , NLU 

XBAR<  NG,  J  1  )-D8X(  NC ,  41  >73S(  MC  > 

3IG<  NC,4  1 >-D8QRT(( S$<  HC  )*DSX2<MG, 4 1  )-D8X<  NC , 41  >**2  )/ 

*(  38 (  NG  )•<  SS<  NG  >-!>>> 

GSX( NG  )*GSX<  NG  )+DSX<  NG,  41  ) 

C8X2(HC>-CSX2<  NG  )*DSX2<  NG,  41  > 

11  CONTINUE 

19  CONTINUE 

WRITE  (IUNIT, 1904) 

1904  FORMAT ( 7  *  CELL  N  8UHX  SUNX2  MEAN 

C'STD  DEV  ) 

DO  191  41>1,NCPS 

1905  F0RMAT(2I3, I4.4F10.3) 

URI  TEC  I  UN  IT  ,  1  905  )(  4  1 , 45  ,  NSS<  4  1  ) ,  DSX<  J  1  ,  J3  >,  DSX2C  4  1  ,  4  5  )  , 
3XBAR<4  1,  4  5>,$IG<  41  ,  45  ),  45*  1,  NLW  > 

191  CONTINUE 

DO  1915  4  1-1, NGPS 
T8X2-TSX2+GSX2< J 1 ) 

1915  GT-3T+GSX<4 1  ) 

CT-GT**2/(THS*NLW ) 

83T -TSX2-CT 
DO  1914  4  1-1, NGPS 

S3C»S8C  +  G3X<4  1  >**2A  SSC  J  1  >*NLW> 

1914  3SB-SSB+8AXS2<  J 1  ) 

ssb-ssb/nlw-ct 

38C-SSC-CT 

3SERRB-33B-3SC 

33W-S3T-SS8 

TEMP-0 

DO  1974  4 1- 1, HLW 
DO  1975  X  1-  1 , HOPS 

3STRXC-88TRXC  +  D8X<  K 1 ,  41  )**2/SS<  KI  ) 

1975  TEMP-TEHP+D3X< XI ,4 1  ) 

TEMP-TEHP**2/'TNS 
88TR-S3TR+TEHP 
1974  TEMP-0. 
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0111 

0112 

0113 

0114 

0115 

out 

Oil? 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0 12t 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
013S 
0136 
013? 
0138 
0139 
0144 
0141 
0142 
0143 
0144 
0143 
0  1 4 1 
014? 
0148 
0149 
0130 
0131 
0132 
0133 
0134 
0153 
0134 
0137 
0138 
0139 
OltO 
Oltl 
01(2 
01(3 
0144 
0143 


88TR-SSTR-CT 

83TRXC-88TRXC-SSC-SSTR-CT 
88ERRV-83U-3STR-SSTRXC 
00  199  J 1 ■ 1 . NGPS 
DF8B"DFSB+8S( J  1  ) 

199  DF8T-DFST+S3< J  1  ) 

DF3T "DFST  *HLU-  1 

DF8B-DF3B-1 

DF8C-HGP3-1 

DFBERB-DFSB-DFSC 

DF8M«DFST-DFSB 

DF8TR-NLW-1 

DFTRXC-DFSTR*DFSC 

DSFERV-DFSU-0F3TR-DFTRXC 

HSC-SSC/DFSC 

H3ERRB-8SERRB/DFSERB 

MSTR*8STR/DFSTR 

MSTRXC-SSTRXC/DFTRXC 

N8ERRU-83ERRU/DSFERU 

FC-H8C/H3ERRB 

FTR-HSTR/MSERRU 

FTRXC"MSTRXC/MSERRU 

F«FC 

DF1-0F3C 

0F2-0F3ERB 

CALL  FPROB< F, DF1 40F2. 2. PC) 

F-FTR 

DF1-0FSTR 

DF2-D3FERU 

CALL  FPftOB<F.OFl.DF2i2«PTR) 

F-FTRXC 

DFl-OFTRXC 

0F2«D3FERW 

CALL  FPRQB< F. DF1 .DF2. 2. PTRXC > 

20  FORMATCO  SOURCE  SS  DF  MS  F 

C*  ?•,//*  TOTAL*  i 

*9X.  F 10 . 3 . F3 . 0/ *  BETUEEN  * / F l 0 . 3 - F 3 . 0/ "  FACTOR  A  * 

#iF10.3,F3.0,2F10.3,F10.6/*  ERROR  BTU  " , F 1 0 . 3 . F5 . 0 , F 1 0 . 1// 

*'  M1THIM*44X»F10.3«F3. 0/5X4  'FACTOR  B  *  4  F  1  0  .  3  4  F  3  .  0 ,  2  F 1  .  3  4 

0F10 . 84 /,  3X4 *A  *  B* / 3X ,F 10. 3. F5. 0, 2F10. 3<F 10 . 4/5X , ‘ERROR  W/IN*. 
*F10.3.F5.0,F10.3> 

«R1TE< 1UN1T.20 >3ST . DFST , SSB. DF88. 3 SC  4 0 F SC  4 H SC . FC 4  PC.SSERRB. 

0DF8ERB  4 

•MSERRB.SSW. DFSU, SSTR, DFSTR.NSTR .FTR. PTR.SSTRXC.DFTRXC  .  MSTRXC, 
OFTRXC*  PTRXC4  S8ERRW4  OSFERM. NSERRW 
CALL  CLOSE( I B  4  IER) 

CO  TO  834 

98  8RITE< 1.4420)  IER 

4420  FORMAT  <  'INPUT  OATA  FILE  FAILED  TO  OPEH.  ERROR  CODE!  *4i3  > 

STOP 

97  «RITE<  1 . 4421  ) 

4421  FORMAT  <  ‘INVALID  OUTPUT  UMIT  •*  > 

CO  TO  1 

834  END 
END* 
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AV22  ( RBF ~P , Q.)  (Two-way  ANOVA,  Repeated  Measures) 

Purpose: 

This  program  performs  a  two-way  randomized  block  factorial  analysis 
of  variance  with  replication  either  by  using  matched  subjects  or 
repeated  measures  with  one  subject. 

Mathematical  Model: 


The  model  for  this  design  is: 


u  +  A.  +  B.  +AB..  +  tt  E .  . 

i  j  i  j  m  i  jm 


The  hypotheses  to  be  tested  are: 


Ho :  A.  *0  for  all  i 

i 

Ho :  B .  »  0  for  all  j 
J 

Ho:  AB , .  *  0  for  all  i j 
i  J 

The  fixed  effect  model  (Model  l)  was  assumed  in  the  derivation  of 
the  expected  values  of  the  mean  squares. 


Layout  of  Design: 


S  represents  a 
set  of  subjects 


1.  There  are  two  Factors  (A,B)  with  p  and  q  levels  of  treatments 
respectively.  The  experiment  consists  of  pq  treatment  combina¬ 
tions.  The  above  example  includes  three  levels  of  Factor  A, 
two  levels  of  Factor  B. 

2.  Subjects  are  randomly  assigned  to  the  pq  treatment  combinations 
with  each  subject  or  a  set  of  matched  subjects  receiving  all 
combinations.  The  order  of  adm i n i st rat i on  of  the  pq  combina¬ 
tions  is  randomized  independently  for  each  subject.  If  sets 

of  matched  subjects  are  used,  one  subject  from  each  set  is 
randomly  assigned  to  each  treatment  combination. 

3.  There  should  be  more  than  one  subject  per  pg  treatment  combinations 
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,  I 


Km 


User  Considerations  and  Procedures: 


1.  A  data  file  must  be  created  in  matrix  form.  On  read  input, 

Factor  B  varies  most  rapidly;  then  Factor  A,  then  subjects. 

(For  example,  record  one  contains  subject  one,  treatments  abjj, 

ab^  .  .  . ,  a^]q*  recorb  two,  subject  one,  treatment  ab^  ,  ab^  ' 

ab2q  ....  subject  one,  treatment  abpl ,  abp2  ....  abpqi  next 

record,  subject  two,  treatments  ab^,  abi2‘  ’  '  *  a^iq  *  ‘  *’ 

subject  n,  treatments  ab^,  abp2  •  •  •»  a^pq  ^  ^  printout  of  the 

raw  data  file  would  show  q  data  points  per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2). 

b.  Parameters  required: 

a.  number  of  levels  of  Factor  A  (maximum  25) 

b.  number  of  levels  of  Factor  B  (maximum  25) 

c.  number  of  subjects  (maximum  1000) 

d.  name  of  data  file 

e.  format  of  data  file 
5.  Printout  gives: 

a.  raw  data  by  group  (optional) 

b.  for  each  group:  N,  lx,  Zx  ,  X,  and  SD  (unbiased  estimate) 

c.  ANOVA  source  table 

Comments : 

This  ANOVA  design  permits  interaction  effects  to  be  evaluated.  Pc.-.'er 
tests  can  be  used  to  determine  the  nubmer  of  subjects  necessary  for 
the  experiment. 
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RU.AV22 

AV22  OR  RBF-P.Q  TWO  WAY  ANOVA  WITH  REPEATED  MEASURES 

OR  BLOCKS  ON  BOTH  FACTORS.  INDEX  FOR  FACTOR  B  FIRST, 

THEN  A  AND  LAST  SUBJECTS.  PROGRAM  EXPECTS  Q.  POINTS  PER  LINE 
ENTER  DATA  FILE  NAME 
#JRBPa 


ENTER  FORMAT  OF  DATA 
(M2X,F8.4)) 

ENTER  I  FOR  CRT,  6  FOR  LINE  PRINTER  OUTPUT 

6 

LEVELS  OF  A 

2 

LEVELS  OF  B 

4 

HOW  MANY  SUBJECTS 

PRINT  OUT  OF  RAW  DATA  (1 -YES, 0-NO) 

I 
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f 

Ri MkJ  £AT 

: 

3.0000 

4.0000 

7.0000 

7.0000 

1' 

1 .0000 

2.0000 

5.0000 

10.0000 

6.0000 

5.0000 

8.0000 

8.0000 

2.0000 

3.0000 

6.0000 

10.0000 

3.0000 

4.0000 

7.0000 

9.0000 

1 

2.0000 

4.0000 

5.0000 

9.0000 

3.0000 

3.0000 

6.0000 

8.0000 

t 

2.0000 

3.0000 

6.0000 

1  1.0000 

■  ’ 

CELL 

N 

SUMX 

SUMX2 

MEAN 

SD 

1  1 

4 

15.000 

63.000 

3.750 

1.500 

• 

1  2 

4 

16.000 

66.000 

4.000 

.816 

*  1 

1  3 

4 

28.000 

198.000 

7.000 

.816 

i 

1  4 

4 

32.000 

253.000 

8.000 

.816 

i 

1 

2  1 

4 

7.000 

13.000 

1  .750 

.500 

2  2 

4 

12.000 

38.000 

3.000 

.816 

2  3 

4 

22.000 

122.000 

5.500 

.577 

% 

I 

2  4 

4 

40.000 

402.000 

10.000 

.816 

i 

i 

1 

SOURCE  TABLE 

i 

SOURCE 

SS 

DF 

MS 

F 

P(F) 

•i 

A 

3.125 

1 

3.125 

4.953 

.03516 

i 

B 

194.500 

3 

64.833 

102.755 

.00000 

| 

AB 

19.375 

3 

6.458 

10.236 

.00041 

1 

RESIDUAL 

13.250 

21 . 

.631 

1' 

TOTAL 

235.500 

31 . 

li 


’Vvir 


"AV22  T-00003  18  ON  CR00002  USING  00018  BLKS  R-OOoO 

OOOl  FTN4,L 

0002  PROGRAM  AV22 

0003  DOUBLE  PRECISION  ABB< 40 0  > , S3SU 000  ) , AI I < 20 > , BJ J< 2 0 > , BSS< 20  > , PF3 

0004  DOUBLE  PRECISION  X 1 < 400 > , X2< 400 >, XR< 20 > , MCI , Al B 1 , AB2, AF2 , BC2 

0009  OQUBLE  PRECISION  X / SV , 3X , S A. AS. BS , AF , AB , BG, UC , XN , XB , SD , DU. D  I 

0008  DOUBLE  PRECISION  AF3, BG 3 , AB3 , Al , B 1 , DP , AF1 - BC 1 , AB t , ZEE , PF 1 , PF2 

0007  D INENS ION  HFI LE( 3 > , IFHT< 20 >, I BC 272  > , IBUF< 29 8  ) 

0008  INTEGER  A,B 

0009  URITE< 1,4400) 

0010  4400  F0RMATCAV22  OR  R8F-P,Q  TWO  WAY  AHOVA  WITH  REPEATED  MEASURES' 

0011  •  »  /* 1  OX , " OR  BLOCKS  ON  BOTH  FACTORS.  INDEX  FOR  FACTOR  B  FIRST. ' , 

0012  X/MOX,'  THEN  A  AND  LAST  SUBJECTS.  PROGRAM  EXPECTS  Q  POINTS  " 

0013  l. "PER  LIME' 

0014  CENTER  DATA  FILE  NAME*) 

0019  READ< 1.18  )NFILE 

0018  16  F0RHAT(3A2) 

0017  IDC88-298 

0018  CALL  OPENUB, IER.NFILE. 3, 0,-2, IDCBS) 

0019  I F< IER  .LT  .0  )G0  TO  9*9 

0020  WRITE< 1.4401) 

0021  4401  FORMAT  (  *  ENTER  FORMAT  OF  DATA  '  > 

0022  READ< 1 . 8  )  IFMT 

0023  8  F ORH AT ( 20A2  > 

0024  WRITE(  1*149) 

0029  149  FORM AT< '  ENTER  l  FOR  CRT,  8  FOR  LINE  PRINTER  OUTPUT") 

0028  READ< 1 , *  )  IUNIT 

0027  WRITE< 1,4402) 

0028  4402  FORMAT  <  "  LEVELS  OF  A  • > 

0029  READ< l , *  )  A 

0030  URITE< 1, 4403) 

0031  4403  FORMAT  <  "  LEVELS  OF  B  " > 

0032  READU,*)  B 

0033  WRI  TEC 1.4404) 

0034  4404  FORMAT  <  •  HOW  MANY  8UBJECTS  •> 

0039  READU,*)  H 

0038  WRI TE<  1 , 942  ) 

0037  942  FORMAT< 'PRINT  OUT  OF  RAW  DATA  < 1 ■ YES , 0 *N0  )? * > 

0038  READU,*)  IPTO 

0039  DO  290  K-l.H 

0040  DO  320  I  ■ 1 ,  A 

0041  CALL  READF( IB, IER, IBUF) 

0042  CALL  CODE 

0043  REAO< I BUF , I FHT  >  (Xfi(KL), KL"l , B) 

0044  I FC IPTO.Efl. 1)  WRITECIUNIT,  IFMT)  <  XRC  4  > .  J ■  1 , 0  ) 

0049  DO  430  J-i.B 

0048  X-XR<J) 

0047  3Y-3Y+X*X 

0048  I I*< I- l )*B+ J 

0049  Xl< 1 1 >«X l U I  )  +  X 

0090  X2< I  I  )«X2< I  I  )  +  X*X 

0091  SX>3XtX 


7b 


0032 

II-l+A*< J-l ) 

0033 

A8B(  II >«ABB< 1 1 >+X 

0034 

SSS(  K)»S3S(  + 

0033 

AIK  I  )*A  1 1<  I>  +  X 

0036 

8JJ< J>«8JJ< J>+X 

0037 

B33< J)-B33< J)+X 

0038 

430 

SA'SA+X 

0039 

AS-AS+SA-SAXB 

0060 

320 

3  A*0 

0061 

00  230  JM.B 

0062 

B3-B8«-BSS<J >*B83<  J >X A 

0063 

230 

8S3CJ )-0 

0064 

00  230  I ■ 1  /  A 

0063 

AF-AF+AI I< I >*AII<  I  >X<  B««H  > 

0066 

00  630  M.9 

0067 

I  I-I+A*<  J-i ) 

0068 

AB-AB+ABB< 1 I )*ABB< I I >XN 

0069 

630 

CONTINUE 

0070 

230 

C0I1T  I HUE 

0071 

DO  240  J-l. B 

0072 

BG<"BG*BJ  J<  J  )*BJJ<  J  >X<  A*H  > 

0073 

240 

COHTIHUE 

0074 

X-0 

0073 

DO  1430  I  *  1 . N 

0076 

1450 

X-X  +  SSS!  I  )*SSS(  I  >X<  A*B  ) 

0077 

SX-SX*SXX<A*8*H) 

0078 

HC“SY*SX-X-AB 

0079 

3Y-SY-3X 

0080 

A8-AB+SX-AF -8G 

0081 

AF-AF-SX 

0082 

BG-BC-SX 

0083 

HRITE< IUHIT, 101 ) 

0084 

101 

FORK AT <  X X XX , ' 0  CELL*. 6X  ,  *N  "  , 1  OX . " SUHX* , 6X  , *  SUMX2 

0083 

l'HEAN* ,8X. '3D' ,X > 

0086 

XH-H 

0087 

DO  102  1*1. A  - 

0088 

DO  102  J- 1 . U 

0089 

I  I*<  1-1 )*B+J 

0090 

X 8- X  1  <  II  )  XX  N 

0091 

30-D38RT<  <X2<  I  1  >-<  Xl<  II  >*X1<  I  I  )  )XXN  )X<  XH-1  .  )  ) 

0092 

102 

8  R I  T  E<  IUH  I  T  .  1  2  7  )  I,J.H,X1<II>.X2<II>.XB.SD 

0093 

127 

F0RHAT<2I3. 3X. 14  >3X.4< IX.F10 . 3)  ) 

0094 

WRITE!  IUHIT.810) 

0095 

810 

FORK  AT  <  XXX. 15X, ‘SOURCE  TABLE', XX, “  SOURCE  ", 9X, “S 

0096 

110X.  'H S "  ,  10X, * F " , 1 l X , *  P  (  F  >  "  ,  X  > 

009? 

DW*<  A*8-  1  >* <  N-  1  ) 

0098 

A  -A-  1 

0099 

O-B-l 

0100 

D  I- A  *B 

0101 

WC1-MC 

0102 

A  IB  1 ■< A+l  >*  <  3  +  1 )  *N  -  1 

0103 

WC-UCXDU 

•  D  F  "  , 
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0104 

882-88/0  I 

0103 

8F2-8F/8 

0106 

BG2-BG/B 

010? 

8F3-8F2/UC 

0108 

BG3-BC2/UC 

0109 

8B3-8B2/UC 

0110 

81-8 

0111 

81-8 

0112 

DP-DU 

0113 

8F1-8F3 

0114 

BG1-BC3 

0113 

8B1-8B3 

Oil* 

CALL  FPR08<  AF  1  /  8  1 »  DP/ 

Oil? 

DP-DU 

0118 

CALL  FPR08<  BG1 /Bl»  DP- 

0119 

DP-DU 

0120 

CALL  FPR0B<  881  /01/DP/ 

0121 

URI  TE< IUHIT/820)  AF/8 

0122 

1883# PF3* UC1 iDU/UC.  SY/ 

0123 

820 

F0RH8T(3X/UA* / 9X/F8 .3 

0124 

13X# "  B"  /  9 X  /  F  8  . 3/5X  /  13/ 

0123 

22X# " 80 • / 9  X / F  8 . 3, 5X,  13 

0126 

32X# "RESIDUAL" / X#  F10 .3 

012? 

4F8. 0  ) 

0128 

CALL  CLOSE< 18/ 1ER) 

0129 

CO  TO  98? 

0130 

999 

URI  TE<  1  /  4409) 

0131 

4409 

FORMAT  <  "  ERROR  ON 

0132 

STOP 

0133 

98? 

END 

0134 

END* 

AV30 


(CRF  -  P.Q.R)  (Three-way  ANOVA) 


Purpose: 

This  program  performs  a  three-way  completely  randomized  factorial 
analysis  of  variance  without  replication. 

Mathematical  Model: 


The  model  for  this  design  is: 


u  +  A.  +  8  .  *  C.  +  AB.  .  +  AC..  +  BC..  +  ABC.  ..  +  E  , ...  \ 
■  •  L  ■■  ik  jk  ijk  m(ijk) 


i j  km  i  j  k  i j 

The  hypotheses  to  be  tested  are: 


Ho: 

Ho: 

Ho: 

Ho: 

Ho: 

Ho: 

Ho: 


A.  -  0 

for  a  1  1  i 

B.  -  0 

J 

f  o  r  a  1 1  j 

Ck  “  ° 

fo  r  a  1  1  k 

AB.  .  - 
|  1 

0  for  all 

'  J 

'  J 

AC.  - 
i  k 

0  for  all 

ik 

BC..  - 
J k 

0  for  all 

Jk 

ABC.  .. 

ijk 

*  0  for  al 1 

The  fixed  effect  model  (Model  1)  was  assumed  in  the  derivation  of  the 
expected  values  of  the  mean  squares. 


Layout  of  Des i gn : 


CO 

B2 

A1 

c, 

C2 

C1 

C2 

S1 

S2 

S3 

B 

Csl 

< 

_ 1 

S5 

S6 

C 

“7 

S8 

S  represents  a 
set  of  subjects 


1.  There  are  three  Factors  (A,B,C)  with  p,  q,  and  r  levels  of 

treacmarus  respectively.  The  experiment  consists  of  pqr  treat¬ 
ment  combinations.  The  above  example  includes  two  levels  of 
each  of  Factors  A,  B,  and  C. 


2.  Subjects  are  randomly  assigned  to  the  pqr  treatment  combina¬ 
tions  with  each  subject  receiving  only  one  combination. 

3.  There  should  be  more  than  one  subject  per  pqr  treatment  com¬ 
bination. 

User  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  with  each  point  in  a  sequential  file 
indexing  for  subjects  within  Factor  C  fastest,  then  Factor  B,  and 
finally  A.  (For  example,  first  record  is  subject  one  for  treat¬ 
ment  abCj | | ,  second  record  is  subject  two  for  treatment  abc^jj.  . 

then  subject  one  for  treatment  abc^*  subject  two  for  treat 

ment  abc^2  ■  •  last  record  would  be  subject  n  for  treatment 

abc  .)  A  printout  of  the  raw  data  file  would  show  one  data 
pqr 

point  per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  orinter.  Option:  I  for  CRT 
output,  6  for  line  printer  output. 

3.  A  printout  of  raw  data  can  be  obtained.  Option:  1  if  raw  data 
printout  is  desired,  0  for  no  printout.  The  output  device  is 
designated  by  above  option  {#2). 

4.  Parameters  required: 


a . 

number  of 

levels  of 

Factor 

A 

(maximum 

9) 

b. 

number  of 

1  evei s  of 

Factor 

B 

(maximum 

9) 

c. 

number  of 

levels  of 

Factor 

C 

(maximum 

9) 

d. 

number  of 

subjects 

per  ABC 

cell  (maximum  32767) 

e . 

name  of  data  file 

f . 

format  of 

data  file 

5.  Printout  gives: 

a.  raw  data  (optional) 

2 

b.  for  each  cell  (treatment  combination):  N,  Ex,  Ex  ,  X,  and 
SD  (unbiased  estimate) 

c.  ANOVA  course  table 
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Comments : 


Program  uses  least  square  analysis  for  unequal  cell  sample  sizes. 

This  ANOVA  design  permits  interaction  effects  to  be  evaluated.  Power 
tests  can  be  used  to  determine  the  number  of  subjects  necessary  for 
the  experiment. 

Test  Data: 

This  program  was  tested  using  data  from  Roger  E.  Kirk,  Exper imental 
Design  Procedures  for  the  Behavioral  Sciences,  Wadsworth” Pub  1 i sh i ng 
Company ,  1 96^,  Pp.  2ISJ-221  . 

The  accuracy  of  this  program  is  less  than  that  obtained  by  the  Statistical 
Analysis  System  and  Statistical  Package  for  Social  Sciences.  The  data 
analysis  output  is  only  accurate  to  five  digit  places  instead  of  ten 
digits. 


RU.AV30 


AV30  OR  CRFPQR 

REF:  BRUNING  &  KINT2,  1968 

SECTION  2.3 

FACTORIAL  DESIGN:  THREE  FACTORS 

NOTE:  ON  INPUT  OATA  READ  SEQUENCE,  INDEX  FOR 
FACTOR  C  WILL  VARY  HOST  RAPIDLY,  INDEX 
FOR  FACTOR  B  VARIES  NEXT,  THEN  INDEX 
FOR  FACTOR  A  VARIES.  PROGRAM  EXPECTS 
ALL  OATA  TO  BE  IN  ONE  SEQUENTIAL  FILE. 
NOTE:  MAX  9  *  9  *  9  DESIGN 


ENTER 

6 


I  FOR  CRT  OUTPUT,  6  FOR  LPT: 


DO  YOU  WAN f  PRINTOUT  OF  RAW  DATA  1  -  YES  ,  0  -  NO 

1 

ENTER  NAME  OF  INPUT  DATA  FILE: 

MV  20 


ENTER  INPUT  DATA  FORMAT: 

( 4x , F 1 0 . 4 ) 

ENTER  tt  LEVELS  FACTORS  A,  B,  6  C: 


2,2,2 

FACTOR  A,  LEVEL:  1 

FACTOR  8,  LEVEL:  1 

FACTOR  C,  LEVEL:  1 

ENTER  tt  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  I 

FACTOR  C,  LEVEL:  2 

ENTER  tt  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  2 

FACTOR  C,  LEVEL:  1 

ENTER  tttt  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  2 

FACTOR  C,  LEVEL:  2 

ENTER  tt  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  1 

FACTOR  C,  LEVEL:  1 

ENTER  tt  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  I 

FACTOR  C,  LEVEL:  2 

ENTER  tt  SS  THIS  CELL: 

4 
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FACTOR  A,  LEVEL:  2 
FACTOR  8,  LEVEL:  2 
FACTOR  C,  LEVEL:  1 
ENTER  #  SS  THIS  CELL: 

4 

FACTOR  A,  LEVEL:  2 
FACTOR  8,  LEVEL:  2 
FACTOR  C,  LEVEL:  2 
ENTER  #  SS  THIS  CELL: 

4 


MBggMHBMMrgiLyaTOLWUgJMMUl 


8, 


» 


LEVEL: 


LEVEL: 


LEVEL: 


LEVEL: 


LEVEL: 


LEVEL: 


LEVEL: 


LEVEL: 


I  1  1  RAW  DATA 

3.0000 
6.0000 
3.0000 
3.0000 

1  1  2  RAW  DATA 

4.0000 
5.0000 
4.0000 
3.0000 

I  2  1  RAW  DATA 

7.0000 
8.0000 
7.0000 
6.0000 

1  2  2  RAW  DATA 

7.0000 

8.0000 

9.0000 

8.0000 

2  1  1  RAW  DATA 

1  . 0000 

2.0000 

2.0000 

2.0000 

2  1  2  RAW  DATA 

2.0000 
3.0000 
4.0000 
3.0000 

2  2  1  RAW  DATA 

5.0000 
6.0000 
5.0000 
6.0000 

2  2  2  RAW  DATA 

10.0000 
9.0000 
1 1 .0000 
10.0000 


CELL 

N 

SUMX 

SUMX2 

MEAN 

SD 

1  1 

1 

4 

15.000 

63.000 

3-750 

1  .  500 

1  1 

2 

4 

16.000 

66.000 

4.000 

.816 

1  2 

1 

4 

28.000 

198.000 

7.000 

.816 

1  2 

l . 

4 

32.000 

258.000 

8.000 

.816 

2  1 

1 

4 

7.000 

13.000 

1  .750 

.500 

2  1 

2 

4 

12.000 

38.000 

3.000 

.816 

2  2 

1 

4 

22.000 

122.000 

5-500 

.577 

2  2 

2 

4 

40.000 

402.000 

10.000 

.816 
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SOURCE 

TOTAL 

FACTOR  A 
FACTOR  B 
FACTOR  C 
A  *  B 
A  *  C 
B  *  C 
A  *  B  *  C 
ERROR 


ss 

OF 

235.500 

31. 

3.125 

1  . 

162.000 

1  . 

24.500 

1  . 

6.125 

1  . 

10.125 

1  . 

8.000 

1  . 

3.125 

1  . 

18.500 

24. 

MS 


4.054 

210.162 

31.784 

7.9^6 

13.135 

10.378 

4.054 


3.125 
162.000 

24.500 

6.125 

10.125 

3.000 

3.125 
.771 


P 


.052693 

.000000 

.000050 

.009279 

.001666 

.003874 

.052693 
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"AV30  T-00004  IS  ON  CR00002  USING  00027  BLKS  R-0224 


PROGRAM  A V3 0 

DOUBLE  PRECISION  HS  A, HSB<HSC<NSAB< HS  AC  , HSBC  , KSABC,HSER 
DOUBLE  PRECISION  F A - F B , FC, FAB , F AC , FBC, F ABC , F , DF i , DF 2 , 2 
DOUBLE  PRECISION  P  A  ,  P  B ,  PC/ PA  B  ,  P  AC  , PBC ,  PA6C 
DOUBLE  PRECISION  S  X  2<  8 , 8 , 8  > ,  XBARC  8  ,  8  ,  8  ) ,  S  DC  8 , 8 , 8  ) 

DOUBLE  PRECISION  S2< 8 , 8 , 8 > , S 6( 8  ) , S?< 8  >  , S8C 8  ) , SS< 8 , 8 ) , S 1 0 ( 8 . 8 ) . 
•811C8, 8>,RDATA,T38, S3,34,CT, SST,3SA,  SSB,SSC,  S3AB,  'iSAC,  SSBC, 
*88ABC,9SER,DFT,DFA,DFB,DFC,DFAB,DFAC,DFBC,DFABC,DFER 
D IHEHS  ION  IB<  144  ),  1  BU F<  128  ),  IFHTC  20),  INFILEC  3), MS (8,8, 0) 

DINE  NS  ION  NS6(8),NS7( 8 ) ,  NS  8(  8  ) , NS9C  8 , 8  ),NS10(8,8),NS1 1(8,8  > 

NRI TEC  1, 4400) 

FORHAT  <  "  A  V3  0  OR  CRFPQR" 

C  "REF>  BRUNING  V  KINT2,  1968*  .A 
C  "SECTION  2.3" 

C  "FACTORIAL  DESIGN:  THREE  FACTORS* 

C  *  NOTE:  ON  INPUT  DATA  READ  SEQUENCE ,  INDEX  FOR" 

FACTOR  C  WILL  VARY  HOST  RAPIDLY,  INDEX"  ) 


0001 

FTN4 

0002 

0003 

0004 

0005 

0006 

0007 

OOOB 

0009 

0010 

0011 

0012 

0013 

4400 

0014 

0015 

0016 

001  7 

0018 

0019 

0020 

4406 

0021 

0022 

0023 

0024 

4975 

0025 

4410 

0026 

0027 

0028 

0029 

4411 

0030 

0031 

0032 

4412 

0033 

0034 

498 

0035 

0036 

0037 

0038 

0039 

4413 

0040 

0041 

4985 

0042 

4414 

0043 

0044 

477 

0045 

0046 

4415 

0047 

0048 

0049 

0050 

0051 

FOR  FACTOR  B  VARIES  NEXT,  THEN  INDEX"  ,A 
FOR  FACTOR  A  VARIES.  PROCRAM  EXPECTS"  ,/, 

ALL  DATA  TO  BE  IN  ONE  SEQUENTIAL  FILE." 

HAX  8  *  8  •  8  DESIGN"  > 


6  FOR  LPT :  • > 


1  ■  YES 


C  " 

NRITEC 1 , 4406) 

FORHAT  <  " 

C  " 

C  • 

C  "  NOTE: 

WRITE< 1,4410) 

FORHAT  <  "CENTER  1  FOR  CRT  OUTPUT, 

READ<  t , *  )  IUHIT 

IF< IUNIT.NE.1  .AND.  I  UN  I  T  .  NE  .  6  >G0  TO  4975 
URI T  E< 1,4411) 

FORHAT  < " DO  YOU  UANT  PRINTOUT  OF  RAN  DATA 
READ  < 1 , *  >  IP  TO 
URI TE< 1,4412) 

FORHAT  <  "ENTER  NAME  OF  INPUT  DATA  FILE:*  > 

READC 1 ,498)INFILE 
FORMAT <  3k  2  ) 

I  DC  B S*  1 2  8 

CALL  OPEN  v  IB,  IER,  INFILE, 3, 0,-2, IDCSS) 

I  F< I ER  .  GE  .0  )G0  TO  4985 
URITEC 1,4413)  INFILE,  I E  R 

F0RHAT(5X,3A2«4X,"NC1  OPEN  INPUT  DATA  FILE,  I  ER  ■ 
STOP  4413 
U R I  T E(  1,4414) 

FORHAT  <  "ENTER  INPUT  DATA  FORHAT ;  "  ) 

READC 1 ,4?7)IFHT 
FORMAT C  20 A2  ) 

URI TEC  1,4415) 

FORHAT  C  "CENTER  «  LEVELS  FACTORS  A,  B ,  &  C :  ‘> 

READC  1  ,  •  )  NL  A  ,  Hi.  B  ,  NLC 

DO  500  L A ■  l ,HLA 

DO  500  I.  B  *  1  ,  N L 8 

DO  50C  L C ■  l , N L C 

URI TEC  1,4416)  LA 


8L 


NO  "  ) 


,  15 


*>.  Ji.  f  .1 


*092 

0*93 

0*94 

0*99 

0*96 

0*9? 

0*98 

0*99 

**4* 

0*41 

0*42 

*043 

0*44 

0*49 

0*44 

0*47 

0*48 

*049 

**?* 

**71 

**72 

**73 

**74 

**79 

**74 

**77 

**78 

**79 

**8* 

0*81 

**82 

**83 

**84 

**89 

**84 

**87 

**88 

**89 

**9* 

**91 

**92 

**93 

**94 

**99 

**94 

**97 

**98 

**99 

*1** 

*1*1 

41*2 

*1*3 

*1*4 

*1*9 


4414  FORMAT  <  'FACTOR  A.  LEVEL:  '<19  ) 

VRI TE< 1,4417)  LB 

4417  FORMAT  <  'FACTOR  8,  LEVEL:  ',19  ) 

URI TE< 1.4418)  LC 

4418  FORMAT  <  'FACTOR  C,  LEVEL:  ',19  ) 

URI  TE(  1,4419) 

4419  FORMAT  <  'tEMTER  •  S3  THIS  CELL:  •) 

REAO< 1 , • >  NS (LA, LB, LC) 

K-H3(LA, LB, LC  ) 

IF<  1PT0.EQ.  1)URITE<  IUNIT  ,1  )LA,LB,LC 
1  FORMAT  < '  LEVEL:  ',313,*  RAW  OAT  A  *  ) 

DO  499  N«  1,  K 

CALL  READF( IB,  IER,  IBUF) 

CALL  COOE 

REAO< IBUF , I FMT >RDA  T  A 

IF(  IPTO.EQ.  DURITEC  IUHIT.IFHT  )RDATA 

TS8-TSS+1 

S2(  LA,  LB,  LC  >-S2<  LA  ,  LB  ,LC  >+RD  ATA 
SX2<  LA,LB,LC)-SX2< LA, LB, LC  )  +  RDATA**2 
83"83+RDATA**2 
S4-S4+RDATA 
S4( LA)-86(LA)+RDATA 
HS6<  LA  )*NS6<  LA  >+l 
37< LB)*S7(LB)+RDATA 
H S7 <  LB  )-MS7<LB  )+t 
3 8(  LC)-S8(LC)+RDATA 
HS8( LC  )*N38<  LC  >+l 
3  9<  LA,  LB  )-S9(  LA,  LB  )+RDATA 
NS9<  LA , LB >«  NS  9  (  L  A , LB)  +  1 
31*<LA,LC>»Si*<LA,LC)+RDATA 
N810<LA,LC)-N31*<LA,LC)+1 
S  1 1  <  LB  ,  LC  >*  St  1  <  LB,  LC  ) +RD AT  A 
MSI 1<LB,LC)-N311<L8,LC>*1 
499  CONTINUE 
9*0  CONTINUE 

DO  9*1  I  1 »l , NL A 
DO  9*1  12-1 ,NLB 
DO  9*1  13-1 , MLC 
ANS«NS< I  1 , 12,  13) 

XBAR(I1,  12,  I3)»S2<  II,  12,  13)/ A  NS 
8D<  II,  12,  13)-DS8RT<<ANS*SX2<  II,  12,  13)- 
*32<  1 1 ,  12,  13  >**2  )/<  ANS*<  ANS-t  .  >)  > 

9*1  CONTINUE 

URI  T  E  <  IUH1T,5*2X((11,I2,I3,NS(  II,  12,  13  >,  S2<  11,12,13), 

*8X2< II , 12, 13), XBAR< II , 12, 13), SD< I  1 , 12, 13), 13*1 ,NLC> , I  2-1 , NLB  ) , 
*  I  1-1 , NLA ) 

9*2  FORMATCO  CELL  N  SUMX  SUHX2  MEAN", 

$9X,  "  3D  "  ,  /  ,  <  3 1  2 , 3X ,  I4,3X,4<  IX, FI*. 3))) 

C l-84**2/T8S 

SST-S3-CT 

DO  6*1  LA-1  ,  NL A 

6*1  83A-SSA+86( LA  >**2/HS6(LA  ) 

SSA-SSA-CT 
DO  7*1  LB-1, NLB 
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0106 

701 

S88-88B+87< L8 >«*2/HS?<LB  ) 

010? 

8S8-SSB-CT 

0108 

DO  801  LC-1  ,  HLC 

0108 

801 

S3C*SSC  +  S8( LC  >**2/HS8<LC  > 

0110 

SS03SC-CT 

0111 

DO  901  LA-t,NLA 

0112 

DO  901  LB-l ,  NLB 

0113 

901 

33AB-8SAB+S9< LA# LB  ) *• 2/ H39 < L A , LB  ) 

0114 

88AB-SSA8-SSA-SSB-CT 

0115 

DO  1001  LA-1, NLA 

0116 

DO  1001  LC- 1 , HLC 

0117 

1001 

38AC-88AC+310<  LA,LC >**2/MS10<  LA,LC > 

0118 

33AC-SSAC-3SA-SSC-CT 

0119 

DO  1101  LB-1, NLB 

0120 

DO  1101  LC-l.NLC 

0121 

1101 

SS8C -SSBC+S 1 1 <  LB , L C >* *2 /NS  1 1 <  LB , LC  > 

0122 

888C-38BC-S3B-S8C-CT 

0123 

DO  1201  LA-1, NLA 

0124 

DO  1201  LB-1, NLB 

0125 

DO  1201  LC-l.NLC 

0126 

1201 

3SABC-38ABC+S2(LA, LB,  LC  >  —  2/NS<  LA  ,  LB  ,  LC  > 

0127 

S8ABC-88A8C-SSA-S8B-SSC-SSAB-SS AC-SSBC-CT 

0128 

38E8-8ST-38A-3S8-83C-SSAB-SSAC-SSBC-SSABC 

0129 

DFT-T33-1 

0130 

DFA-HLA-1 

0131 

DFB-MLB-1 

0132 

DFC-NLC- 1 

0133 

DFAB-DFA-DFB 

0134 

DFAC-OFA-DFC 

0135 

DFBC-DFB-DFC 

0136 

DFABC«DFA«OFB*OFC 

0137 

DFER-DFT-DFA-DFB-DFC-DFAB-DFAC-DFBC-DFABC 

0138 

N3A-8S A/DFA 

0139 

N38-88B/DFB 

0140 

N3C-38C/ DFC 

0141 

N3AB-8SAB/DFAB 

0142 

H3AC-8SAC/DFAC 

0143 

HS8C-SS8C/DFBC 

0144 

H8ABC-SSA8CXDFA8C 

0145 

HSER-SSER/DFER 

0146 

FA-H8A/H3ER 

014? 

FB-M3B/HSER 

0148 

FC-H8C/H3ER 

0149 

F  AB-H8 AB/HSER 

0150 

FAC -US  ACCUSER 

0151 

FBC-HSBC/'NSER 

0152 

FABC-HSABC/'MSER 

0153 

F-FA 

0154 

DFl-DFA 

0155 

DF2-DFER 

0156 

CALL  FPRQ8( F, DF1 ,DF2, 2, PA) 

015? 

F-FB 

0158 

DFi -DFB 

0159 

0F2-DFER 

0160 

CALL  FPROB( F, DFI ,DF2, Z, PB) 

?o 


0161 

0162 

0163 

0164 

0163 

0166 

016? 

0163 

0169 

0170 

0171 

0172 

0173 

0174 

0173 

0176 

017? 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0183 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0193 


F»FC 

DF1-DFC 

0F2-0FER 

CALL  FPRQB<  F*  DF1 ,  0F2,  2<  PC) 

F-FAB 

DFt-OFAB 

DF2-0FER 

CALL  FPRQB(F,DF1,DF2»Z,PAB> 

F-FAC 

DFl-DFAC 

DF2-0FER 

CALL  FPROB<  F,  0F1 ,0F2,  Z,  PAC  > 

F-fBC 

OFl-OFBC 

0F2-0FER 

CALL  FPROB<  F,  DFl ,0F2,  Z,  PBC  > 

F-f  ABC 
DF1 -DFABC 
DF2-DFER 

CALL  FPR0B<F,DF1,DF2,Z,PABC> 

UR1  TE< IUMIT»l70l)SST*0FT,$SA»DFA,HSA,FA,PA,  SSB,DFB,MSB,FB,PB, 
ISSC , OF  Cl HSC,FC,PC, SSAB< DFAB, N SA B , F A0 , P A B , SS A C , DF A C , MS  A C , F A C , 

IP  AC  »  S88C ,  DFBC  , 

IHSBC,FBC, PBC , SSA8C  , OF  ABC  ,  HSABC ,  FA8C ,  PABC>  SSER  /  DF  E  R ,  USER 
17  01  FORHAT</,  3X  ,  •SOURCE",  9X,  *SSU  ,  3X,  “DF"  ,6X,  *HS  “  ,  1  OX,  "F",  ?X,  "  P  "  ff 
I*  TOTAL*, 3X, F10 . 3, F3. 0/3X, “FACTOR  A  * , 2X , F 1 0 . 3 , F 5 . 0 , 2 F 1 0 . 3 , 

IF  10 . 6/3X  ,  ‘FACTOR  B * , 2X , F  10 . 3 , F3 . 0 , 2F 10 . 3 , F 1 0 . 6 /3 X , n FAC  TO R  C*. 
I2X,F10.3,F3.0,2F10.3,F10.6/3X,*A  *  B * , 3X , F 1 0 . 3 , F 3  .  0 , 2F 10 . 3 . 

IF  10 . 6,  /# 

I3X,  " A  *  C*,5X,F10.3,F5.0,2F10  .3,F10.6/3X, "B  *  C“ , 3X , F 1 0 . 3, F3 . 0, 
I2F10 .3 ,Fl 0 . 6/3X, *A  *  B  *  C * , 1 X, F 1 0 . 3 , F 5 . 0 , 2 F 1 0 . 3 , F l 0 . 6 /3 X , 
l*ERRQR*,3X,F10.3,F3.0,F10.3> 

CALL  CLOSE< 18, 1ER) 

EHO 
END  I 
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AV31C 

Purpose: 


(SPF-PQ..R)  (Three-way  Split  Plot  ANOVA ,  One  Repeated  Measure) 


This  program  performs  a  three-way  split-olot  mixed  analysis  of  vari¬ 
ance  with  repeated  measures  on  one  factor. 

Mathematical  Model: 

The  model  for  this  design  is: 

ijkm  i  j  k  ik  ij  jk  ijk  m  (  i  j  )  + 

BDkm( i j )  +  Bo( ijkm) 

The  hypotheses  to  be  tested  are: 

Ho:  A.  3  0  for  all  i 

i 

Ho:  B .  3  0  for  all  j 
J 

Ho:  C  *  0  for  all  k 
k 

Ho:  AB . .  3  0  for  al 1  i j 

i  j 


Ho:  AC. 


Ho:  BC 


ik 

jk 


0  f  o  r  a  1  I  i  k 
0  f  o  r  a  1 1  j  k 


Ho:  ABC.  ..  3  0  for  al  1  ijk 

i  j  k  J 

The  mixed  model  (Mode!  Ill)  was  assumed  in  the  derivation  of  the 
expected  values  of  the  mean  squares. 

Layout  of  Design: 


C1 

C3 

A1 

B1 

S1 

S1 

S1 

B2 

52 

S2 

S2 

A2 

B. 

I 

S3 

S3 

B2 

S4 

S4 

S4 

S  represents  a 
set  of  subjects 
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1.  There  are  three  Factors  (A,B,  and  C)  with  p,q,r  levels  of 
treatments  respectively.  Factor  A  and  B  are  designated  as 
between  blocks  or  nonrepeated  measures.  Factor  C  is  the 
within  block  or  repeated  measure.  The  above  example  includes 
two  levels  of  Factor  A,  two  levels  of  Factor  B,  and  three 
levels  of  Factor  C. 

2.  Subjects  from  a  common  population  are  randomly  assigned  to 
the  AB  treatments.  After  this,  levels  of  treatment  C  are 
assigned  randomly  to  the  subjects  except  when  the  nature  of 
the  repeated  measure  precludes  randomization  of  the  presen¬ 
tation  order. 


User  Considerations  and  Procedures: 


A  data  file  must  be  created  in  matrix  form.  On  read  input,  index 
for  Factor  C  first,  then  B,  then  subjects,  and  finally  A.  (For 
example,  record  one  contains  subject  one,  cell  abC|j|>  abc 


abc . 


second  record  is  subject  one  abc. 


’Hr'  - - -  —  —  "121 

records  continue  for  subject  one  until  abc 


abc 


122 

abc. 


112 

abc 


1 2  r  ’ 


3- 


1  q  I  ’ - lq2  •  1  •  ’ 

abc.  have  been  entered.  The  remaining  subjects  in  Factor  A. 

1  qr 

should  be  entered  in  the  same  manner.  Repeat  the  same  procedures 

for  subjects  in  Factor  A  .)  A  printout  of  the  raw  data  would 

P 

show  r  data  points  per  line. 

The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (//2)  . 


4.  Parameters  required: 


a . 

levels  of  Factor  A 

(maximum  3) 

b . 

levels  of  Factor  3 

(maximum  3) 

c . 

levels  of  Factor  C 

(maximum  9) 

d. 

number  of  subjects 

per  AB  cel  1  (maximum  32767 ) 

e . 

name  of  data  file 

f . 

format  of  data  file 

Qq 


5.  Printout  gives: 


a.  raw  data  by  group  (optional) 

b.  for  each  group:  N,  Ex,  Ex^ ,  X,  and  SD  (unbiased  estimate) 

c.  ANOVA  source  table 


Comments : 

Program  uses  least  squares  analysis  for  unequal  AB  cell  sizes.  This 
ANOVA  design  permits  interaction  effects  to  be  evaluated.  In  a  split- 
plot  design,  estimates  of  the  within  block  (Factor  C,  interactions  AC, 
BC,  and  ABC)  effects  are  more  accurate  than  estimates  of  the  between- 
block  (Factor  A,  Factor  B,  and  interaction  AB)  effects.  If  an  experi¬ 
menter's  primary  interest  is  in  the  within-block  effects,  a  split-plot 
design  is  more  powerful  than  a  randomized  factorial  block  design  (AV33) 
However,  if  equal  precision  for  all  treatment  effects  is  desired  the 
average  power  of  a  randomized  factorial  block  design  is  greater.  Power 
tests  can  be  used  to  determine  the  number  of  subjects  necessary  for 
the  experiment. 

Test  Data: 

This  program  was  tested  from  data  in  Roger  E.  Kirk,  Experimental 
Design  for  the  Behavior  Sciences,  Wadsworth  Publishing  Company, 

1968,  Fp.  284-237. 

The  accuracy  of  this  program  is  less  than  that  obtained  by  the  Statis¬ 
tical  Analysis  System  and  by  the  Statistical  Package  for  the  Social 
Sciences.  The  data  analysis  output  is  only  accurate  to  six  digit 
places  instead  of  ten  digits. 
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RU.AV31C 

AV31C  OR  SPF-  PQ.  R 

THREE  FACTOR  MIXED  DESIGN:  REPEATED  MEASURES  ON  ONE  FACTOR 
NOTE:  PROGRAM  CALCULATORS  LEAST  SQUARES 
SOLUTION  IF  UNEQUAL  CELL  N'S 
NOTE:  ON  INPUT  DATA  READ  SEQUENCE,  INDEX  FOR  REPEATED 

MEASURES  FACTOR  (0  VARIES  MOST  RAPIDLY,  INDEX  FOR 
FACTOR  B  VARIES  NEXT,  THEN  INDEX  FOR  FACTOR  A  VARIES. 
PROGRAM  EXPECTS  ALL  DATA  TO  BE  IN  ONE  MATRIX  FILE. 
NOTE:  MAX  9*9*9  DESIGN. 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT: 

6 

DO  YOU  WANT  PRINTOUT  OF  RAW  DATA  1  -  YES  ,  0  -  NO 

1 

ENTER  INPUT  DATA  FILE  NAME: 

#  AV32 

ENTER  INPUT  DATA  FORMAT: 

(4(4X,F10.4) ' 


ENTER  #  LEVELS  FACTOR  A: 

2 

ENTER  §  LEVELS  FACTOR  B: 

2 

ENTER  #  LEVELS  FACTOR  C  (RPT  MS  FACTOR) : 


4 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  1 

ENTER  #  SS  THIS  CELL: 

2 

FACTOR  A,  LEVEL:  1 

FACTOR  B,  LEVEL:  2 

ENTER  ft  SS  THIS  CELL: 

2 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  1 

ENTER  #  SS  THIS  CELL: 

2 

FACTOR  A,  LEVEL:  2 

FACTOR  B,  LEVEL:  2 


ENTER  §  SS  THIS  CELL: 
2 
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LEVEL: 


I  !  RAW  DATA 


3.0000 

4.0000 

7.0000 

7.0000 

6.0000 

5.0000 

8.0000 

8.0000 

LEVEL 

:  1 

2 

RAW  OATA 

3.0000 

4 . 0000 

7.0000 

9.0000 

3.0000 

3.0000 

6.0000 

8,0000 

LEVEL 

:  2 

1 

RAW  OATA 

1 .0000 

2.0000 

5.0000 

10.0000 

2.0000 

3.0000 

6.0000 

10.0000 

LEVEL 

:  2 

2 

RAW  DATA 

2.0000 

4.0000 

5.0000 

s.oooo 

2.0000 

3 .0000 

6.0000 

11.0000 

CELL 

N 

SUMX 

SUMX2 

MEAN/ 

SO 

I 

I 

I 

2 

9.000 

45.000 

4.500 

2.121 

I 

I 

2 

2 

9.000 

41  .000 

4.500 

.707 

1 

1 

3 

2 

15.000 

113.000 

7.500 

.707 

1 

1 

4 

2 

15.000 

113.000 

7-500 

.707 

1 

2 

1 

2 

6.000 

18.000 

3-000 

.000 

1 

2 

2 

2 

7.000 

25.000 

3-500 

.707 

1 

2 

3 

2 

13-000 

85.000 

6.500 

.707 

1 

2 

4 

2 

17.000 

145.000 

8.500 

.707 

2 

1 

1 

2 

3.000 

5.000 

1  .500 

.707 

2 

1 

2 

2 

5.000 

13.000 

2.500 

.707 

2 

1 

3 

2 

1 1 .000 

61 .000 

r  .500 

.707 

2 

1 

4 

2 

20.000 

200.000 

10.000 

.000 

2 

2 

1 

2 

4.000 

8.000 

2.000 

.000 

2 

2 

2 

;> 

7-000 

25.000 

3-500 

.707 

2 

2 

3 

2 

11.000 

61 .000 

5.500 

.707 

2 

2 

4 

2 

20.000 

202.000 

10.000 

1 .414 

SOURCE 

SS 

OF 

MS 

F 

P 

TOTAL 

235.500 

31. 

BETWEEN  SUBJECTS 

12.500 

7. 

FACTOR  A 

3.125 

1 . 

3.125 

1  .724 

.259214 

FACTOR  B 

.125 

1 . 

.125 

.069 

.799328 

A  *  B 

2.000 

1 . 

2.000 

1.103 

.354230 

ERROR  B 

7.250 

4. 

1  .812 

WITHIN  SUBJECTS 

223.000 

24. 

FACTOR  C 

194.500 

3. 

64.833 

163.789 

.000001 

A  *  C 

19-375 

3. 

6.458 

16.316 

.000318 

B  *  C 

1  .375 

3. 

.458 

1.158 

.366568 

A  *  B  *  C 

3.000 

3. 

1  .000 

2.526 

.106246 

ERROR  W 

4.750 

12. 

•  356 

9<- 
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0001 
0002 
0003 
0004 
0003 
0004 
0007 
0003 
0009 
0010 
001 1 
0012 
0013 
0014 
0013 
0014 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0024 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0033 
0034 
0037 
0038 
0030 
0040 
0041 
0042 
0043 
0044 
0043 
0044 
0047 
0048 
0049 
0030 
0091 


FTN4 ,  L 

PROGRAM  AV31C 

DOUBLE  PRECISION  SX2C  8 , 8 , 8  >,  SD<  8 , 8 , 8  >,  XBARC  8 , 8 , 8  > ,  TSS  ,  S4  ,  S3  , 
4CT,S9,CT,SST,SSB,SSFA,SSF8,SSAB,ERB,SSW,SSFC,SSAC,SS8C,SSA8C, 
8ERW.DFT. DFB.DFFA.DFFB.DFAB.DFERB, DFW,DFFC,DFAC,DFBC,DFABC, 
♦DFERW.FA, FB.FAB, FC, FAC. FBC.FABC,F, DF1, DF2.Z , PA.PB, PAB , PC, 

SPAC . PBC. PABC 

DOUBLE  PRECISION  D VECC A ) , S2< 8 > , S3 < 8 , 8  ) , S 1 0< 8 > , S 1 1 ( 8  ) , S 1 5 < 8 > . 
♦814<8,8),S17<8,8  ).S18<8.8,8> 

DOUBLE  PRECISION  NS  A, HS B , NSAB , H SE R B, NSU , M SC , NS  AC . HS8C , HS ABC . 
CMSERW 

DIMENSION  NSSC 8.  8), NS14C 8). NS  17(8 ), IFHT(20 ) , IBC272  >, I BUF< 254) 
DIMENSION  INFILEC3) 

WRITEC  1.4400) 

4400  FORMAT C  *  AV3  1C  OR  SPF-  PQ.R*,/, 

C" THREE  FACTOR  MIXED  DESIGN:  RFTcATED  MEASURES  ON  ONE  FACTOR*, /, 
C"  NOTE:  PROGRAM  CALCULATES  LEAST  SQUARES"  ,  / , 

C*  SOLUTION  IF  UNEQUAL  CELL  N'S*  ,/, 

C"  NOTE:  ON  INPUT  DATA  READ  SEQUENCE,  INDEX  FOR  REPEATED" > 

WRITEC 1,4403) 

4405  FORHATC  a  MEASURES  FACTOR  <C>  VARIES  MOST  RAPIDLY,  ", 

4" INDEX  FOR* ,/, 

C"  FACTOR  B  VARIE3  NEXT,  THEN  INDEX  FOR  FACTOR  " 

♦, "A  VARIES  ",/, 

C"  PROGRAM  EXPECTS  DATA  TO  BE  IN  ONE  MATRIX  FILE.",/, 

C*  NOTE:  MAX  8  *  8  *  8  DESIGN."  ) 

8973  WRITEC 1. 4409) 

4409  FORHAT  <  "»ENTER  1  FOR  CRT  OUTPUT,  4  FOR  LPT:  »> 

READ ( 1  ,  *  )  IUNIT 

I F< I  UN  1 T . NE . 1 . AND .  I  UN  1 T . HE . 4  >G0  TO  8975 
WRI T  E< 1,4410) 

4410  FORHAT < " DO  YOU  WANT  PRINTOUT  OF  RAW  DATA  1  ■  YES  ,  0  ■  NO  "> 
READCl,*)  IPTO 

WRI T  €  <  1,441  ) 

4411  FORMAT  C  "SEHiER  INPUT  DATA  FILE  NAME:"  ) 

READ  C  1 ,898)1  ’FILL 

898  FORMAT C  3 A2  ) 

WRI TEC  1,4412) 

4412  FORMAT  (  "«ENTER  1 NP.T  DATA  FORMAT:*  > 

READ<  1 ,874)  IFMT 

874  FORHAT <  20 A2  ) 

IDCBS-254 

CALL  OPE NC I  8 , IER, IN  FILE, 3,0. -2,  1DCBS) 

IF(IER.GE.O)  GO  TO  908 
WRITEC  1,544  )  INFILE,  IER 

344  FORHATC  5X  »  3 A2  , *  FAILED  TO  OPEN  ,  IER  -  *,I3) 

STL/  344 

908  WRITEC 1, 4413) 

4413  FORMAT  <  "ENTER  *  LEVELS  FACTOR  A:  1  > 

READC 1 , *  )  HL8 A 

WRITEC 1.4414) 
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0092 
0093 
0094 
0099 
0090 
0097 
0098 
0099 
0000 
004 1 
0042 
0043 
0044 
0049 
0044 
004  7 
004  9 
004  » 
0070 
0071 
0072 
0073 
0074 
0079 
0074 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0089 
0084 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0099 
0094 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 


4414  FORK AT  <  "ENTER  •  LEVELS  FACTOR  8s  *> 

REAl)<  1  ,  •  >  HLBB 

URI TEC 1/4415) 

4415  FORMAT  C  "ENTER  #  LEVELS  FACTOR  C  ( RPT  US  FACTOR)!  ") 

READC 1 / *  )  NL  V 

DO  900  LA-1, NLBA 
00  900  LB-1, NLB8 
URITEC 1 , 4414)  LA 

4414  FORMAT  C  "oFACTOR  A,  LEVEL:  -  ,  1 5  > 

MRI TEC  1,4417)  LB 

4417  FORMAT  <  "oFACTOR  B,  LEVEL  >  ",I5  > 

UR  I  TEC  1/4418) 

4418  FORMAT  <  "oENTER  I  SS  THIS  CELL:  •> 

READC  1,0  NSSCLA.LB) 

N8-M8SC L A , LB ) 

TS8-T8S+NS 

N814CLA)-NS14<  LA  >+NSSCLA,LB> 

HS17<LB)-NS17<  LB  >*N  SS  C  L  A  ,  L  8  > 

I F< IPTO.EQ. 1>URITE<  1UNIT/1  )LA,LB 
1  FORMAT  <  *  LEVEL:  ",2I4,"  RAW  DATA") 

00  900  N- 1 • MS 
S4-0 

CALL  REAOFC 18,  IER, IBUF) 

CALL  CODE 

REAOC IBUF, IFHT X  OVECC I  XU  >, IXU-1 ,NLU> 

IF<  IPTO.  E0.  1  lUMTEC  IUNIT,  IFHT  XOVECC  I  XU  )/  IXU-1  ,  NLU) 

00  899  LU-1,NLU 

S2C LU)-S2(LU)  +  0VEC( LU  ) 

S3CLA.LB  )-$3<LA,  L8)+0VECCLU> 

54- S4+DVECC LU  ) 

55- 85+DVECC LU  >**2 
S10CLA  )-S10<LA  >*  OVECC  LU  ) 

S11C  LB  )-SU(LB  )+OVEC(  LU  ) 

S15C  LU  )-S15CLU  >♦  OVECC  LU  ) 

S14C  LA/LU  )>81 4<LA, LW)  +  OVECCLU  ) 

S17C  L'J/LU  )-S17(LB,  LU)+OVECCLU  ) 

S18CLA,LB,LU)-S18CLA,L3,LU  )♦  OVECC  LU) 

SX2C  LA,LB/LU)-SX2<  LA,  LB,  LU  )  + OVECC  LU>**2 

899  CONTINUE 
CT-CT+S4 

S9- 9 9+ 34* *2 ✓NLU 

900  CONTINUE 

DO  8994  1X1-1 , NLBA 
DO  8994  1X2-1, NLB8 
00  8994  1X3-1, NLU 
ANS-NSSC  1X1  ,  1X2) 

XBARC  IXi  ,  1X2,  1X3  >«'S18C  1X1,  1X2,  1X3  )/AuS 
8D<  1X1  ,  1X2,  1X3  >-0S0RTC<  ANS*SX2<  I X  1  ,  1X2,  1X3)- 
0S18C 1X1, 1X2, IX3)**2  >/C ANS-C ANS- 1 .  )  >) 

8994  CONTINUE 

UR1 TEC IUNIT, 8  9  99  X  C  < I  XI ,  1X2,  1X3, NS  SC  I X 1  ,  I  X2  ) , S  1 8C  IX 1 ,  1X2 , 1X3) , 
98X2C 1X1, 1X2, IX3),XBAR< IX 1,  1X2, 1X3 >,SDC  I  XI , 1X2,  1X3 >, 1X3-1 , NLU) , 
♦  1X2-1, HLBB), I  X 1 -  1 , NLBA) 


3k 


F— - 

5 

i 

-  -  - 

l:  ! 

i  < 

[  0i03 

8993 

F0RNAT<  * 0  CELL  N  SUNX  SUMX2  MEAN* . 

|  0106 

0*  8D,V»<3I2,3X,14,3X>4<1X,F10.3>>> 

f  010? 

CT«CT**2/<TSS*HUO 

i  >108 

83T-35-CT 

I  0109 

338-39-CT 

1  0110 

DO  1000  LA-1.NL8A 

0111 

1000 

8SFA-8SFA+S10< LA >*  •  2/ <  N  S  i  6  <  L  A >*NLU > 

r  0112 

88FA-S8FA-CT 

0113 

DO  1100  LB-1, NLBB 

0114 

1100 

SSFB-S8FB*Sil<  L8 )**2/ < NS i 7 < L B >*NLU  > 

0113 

88FB-S3FB-C  T 

0116 

DO  1299  LA-1, HL8A 

0117 

DO  1299  LB-1, NLBB 

(  0118 

1299 

3  8A  B  -8  8A  B  +  3  3(  LA,l.B  >**27<N3S(  LA,  LB  )*HLU  > 

0119 

88AB-88AB-38FA-8SFB-CT 

0120 

1300 

ERB-S88-SSF A-SSFB-SSA8 

0121 

1400 

88M-8ST-8SB 

1  0122 

DO  1399  LU-1, HLW 

t  ;  *123 

1399 

SSFC-SSFC’*,S15(  LU  )**2/'TSS 

!  1  0124 

68FC-S3FC-CT 

[  i  0123 

8SAC-0 

!  ]  0126 

DO  1699  LA-1, NLBA 

[  !  0127 

DO  1699  LU-1, HLW 

f  !  0128 

1699 

S3AC-SSAC+S 16i LA , L U  >* *2 /MS i 6<  LA  > 

i  0129 

88AC-88AC-SSFA-8SFC-CT 

l  1  0130 

DO  1799  LB-1, NLBB 

0131 

DO  1799  LU-l.HLU 

0132 

1799 

S3BC-8  3BC+S17( LB,LU  >**2/NS17<  LB  > 

[  0133 

SSBC-SSBC-SSFB-SSFC-CT 

[  0134 

DO  1899  LA-1, NLBA 

1  0133 

DO  1899  LB-1, NLBB 

I  *136 

DO  1899  LU-l.NLU 

fc  0137 

1899 

SSABC-SSABC+S18( LA , LB , L U  >* *2 /NS S<  L A , LB  ) 

H  *138 

83ABC-3SA0C-SSFA-SSFB-SSAB-SSFC-SSAC-SS8C-CT 

K  0139 

ERU-38U-8SFC-8SAC- 8SBC- SSABC 

V  *140 

DFT -T83*NLU”l  1 

§§'  0141 

DFB-TSS- 1 

P-.  0142 

DFF  A-NL8 A-l 

1  1  0143 

DFFB-NLBB-1 

■  0144 

DFAB-DFF  A-DFFB  i 

£  *143 

DFERB-DF0-DFFA-OFFB-DFAB 

F  0146 

DFU-DFT-9FB 

I  0147 

DFFC-HLU-1 

I  0148 

OFAC-DFF  C -DFF  A 

I  0149 

DFBC-DFFC-DFFB 

1  0130 

DFA8C-DFFA*DFFB*DFFC 

i  0131 

DFERU-DFU-OFFC-OFAC-DFBC -DFABC 

*  0132 

H3A-3SFA7DFFA  j 

0133 

H3B-33FB/DFFB 

0134 

HSAB-SSAB/DFAB 

0133 

NSERB-cRB/DFERB  j 

0136 

NSU-SSU/DFU  i 

0137 

HSC-SSFC/CFFC 

0138 

R3AC-S3AC/DFAC  \ 

0139 

N3BC-S3BC/DFBC 

0160 

H3ABC-3S ABC/DF ABC 

1  0161 

HSERU-ERU/DFERU 

L 
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0142 
0143 
0144 
0143 
0144 
014? 
0144 
014$ 
0170 
0171 
0172 
0173 
0174 
0173 
0174 
017? 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0183 
0184 
018? 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0193 
0194 
019? 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0203 
0204 
0207 
0208 
0209 
0  210 
021  1 
0212 


FA-M3A7NSERB 
FB-HSB7HSERB 
F AB*N8 AB/HSERB 
FC-HSC/HSERW 
FAC-NSAC/'NSERW 
FBOHSBC7H9ERU 
FABC-HSABC/HSERU 
F"F  A 

DF1-0FFA 

DF2-DFERB 

CALL  FPROB<  F- DFI  *DF2.  Z*  PA> 

F*F8 

DFl-DFFB 

DF2-DFERB 

CALL  FPROB< F, DFI *DF2*  Z*  PB) 

F-FAB 
DFI “OF  AB 
DF2-DFERB 

CALL  FPROB<  F,  DFi  *0F2*  Z*  i'AB  ) 

F«FC 

DFI -DFFC 
DF2-DFERW 

CALL  FPROB<  FiDFl  *  DF2*  Z *  PC) 

F-FAC 
DFI “DF  AC 
DF2-DFERW 

CALL  FPROB<  F»DF1  *  DF2*  Z  *  P AC  > 

F-FBC 

DF1-DFBC 

DF2-DFERU 

CALL  FPR0  8(F*DF1/DF2<Z*PBC) 

F-FABC 

DF1-DFA8C 

DF2-DFERU 

CALL  FPR0B<F*DF1*DF2*Z#PABC> 

WRITEC IUHIT,220i >$ST, DFT,SS8*  DFB, SSFA*  DFFA*  MSA*FA*PA, SSFB, DFFB* 
♦HSB/FB*PB*SSAB*DFA8*HSAB*FA9 , PA B . E RB , D F ERB , H SE RB * SS M - D FW , S S FC , 
♦OFFC . NSC  < FC/PC*S$AC#DFAC#HSAC.FAC* PAC  *  SS8C  , DFBC. MSB  C  < FBC ,  P  B  C  * 
♦SSABC*  DFABC/MSABC  F  ABC  .  P  ABC,  ERW/DFERW,  HSERW 
2201  FORMAT < " 0 "  ,  8X ,  "S OU R CE " , 1  1  X * * S S ■ , 5 X * " DF ■ * 5 X , " MS " , 9 X ,  “ F  "  ,  i  1  X  ,  " P " 
*//•  TOTAL** 14X*F10.3*F3.0/"  BETWEEN  SUBJECTS  * * F 1 0 . 3 , F 3 . 0 /5 X . 

♦  ■FACTOR  A". 7X, F10. 3*Fb. 0**FIO ,3*F12. 4/5X, "FACTOR  B  "  *  7  X  *  F  1 0  .  3  , 
♦F3. 0.2F10 . 3  *  F 1 2 . 6/5X* "A  *  B* *  10 X , F  10 . 3  * F3 . 0  * ?F  10  3 , FI  2  6 /? X , 

♦  ■ERROR  B  *  *  4X»  F  10 . 3  * 

♦F3. 0/F10 . 3//*  WITHIN  BUB JECTS" . 2X. FI  0 . 3 « F3 . 0/3X . " FACTOR  C** 

♦  7X,510.3,F3.0,2F10.3,F12.4/5X»"A  *  C ■ . 1  OX  * F 1 0 . 3 . F5 . 0, 2 F l 0  3  . 

♦F 12 . 4/ *  5X  « ” B  •  C",  10X*Fi0. 3, F5. 0, 2FJ 0 . 3*F12 . 4, /* 5X,  “A  *  B  *  C" 

♦  >  4X  *  F 1 0 . 3*F3.0*2F10 .  3  *  F  1  2  . 4* /  *  7  X  *  "ERROR  W“,6X*ri03*F3.0*F103) 
CALL  CLOSE  (iB.IFR) 

END 

ENDO 
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AV32BC 
Purpose : 


(SPF-P.QR)  (Three-way  Split  Plot  ANOVA,  Two  Repeated  Measures) 


This  program  performs  a  tbrc£-way  mixed  split  plot  analysis  of 
variance  with  repeated  measures  on  two  factors. 

Mathematical  Model: 

The  modil  for  this  design  is: 

X..,  =  u  +  A.  +  B.  +  C,  +  AB..  +  AC.,  +  BC . ,  +  ABC..,  +  tt  . . ,  , 

ijkm  i  j  k  ij  ik  jk  ijk  ml  i  j  + 

jm(i)  cm(i)  jkm(i)  o(ijkm) 

The  hypotheses  to  be  tested  are: 

Ho :  A .  =0  for  all  i 

i 

Ho:  B,  =*  0  for  all  j 

i 

Ho:  C,  =0  for  all  k 
k 

Ho:  AB.  »  0  for  all  i j 

i  j  k  J 

Ho:  AC . ,  *  0  for  all  i k 
i  k 

Ho:  BC =0  for  al  I  jk 
jk 

Ho:  ABC..,  =*  0  for  all  ijk 

i  j  k  J 

The  mixed  model  (Model  III)  was  assumed  in  the  derivation  of  the 
expected  values  of  the  mean  squares. 

Layout  of  Design: 


B 

BZ 

C1 

C2 

C1 

C2 

A1 

s. 

S1 

S1 

S1 

1 

1 

1 

1 

1 

A2 

S2 

S2 

S2 

S2 

S  represents  a 
set  of  subjects 


1.  There  are  three  Factors  (A , B ,  and  C)  with  p,  q,  r  levels  of 
treatment  respectively.  Factor  A  is  designated  as  the  between 
block  or  nonrepeated  measure.  Factors  B  and  C  are  the  within 
blocks  or  repeated  measures.  The  above  example  includes  two 
levels  each  of  Factors  A,  B,  and  C. 

2.  Subjects  from  a  common  population  are  randomly  assigned  to  the 
levels  of  Factor  A.  After  this,  levels  of  treatments  B  and  C 
are  assigned  randomly  to  the  subjects  except  when  the  nature 

of  the  repeated  measure  precludes  randomization  or  the  presenta- 
t i on  order . 


User  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  in  matrix  form.  On  read  input,  Factor 

C  indexes  first,  then  B,  then  subjects  and  finally  A.  (For  example, 
record  one  contains  subject  one,  cell  abc^  j  ,  abc^-  ,  .  abc^r# 

abc]21,  abc122  .  .  .,  abc]2r‘  '  ’’  abclqT  abclq2‘  1  ’*  abclqr;  the 
next  record  contains  the  same  information  for  subject  twc.  The 

remaining  subjects  in  Factor  A^  should  be  entered  in  the  same 
manner.  Repeat  the  same  procedure  for  subjects  in  A  .)  A  print¬ 
out  of  the  raw  data  would  show  qr  data  points. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hardcopy 
can  be  obtained  from  the  line  printer.  Option:  1  for  CRT  output, 

6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2) 

1*.  Parameters  required: 

a.  levels  of  Factor  A  ^maximum  ll) 

b.  levels  of  Factor  B  (maximum  11) 

c.  levels  of  Factor  C.  (or  groups)  (maximum  11) 

d.  number  of  subjects  per  group  (maximum  32767) 

e .  data  file  name 

f.  format  of  data  file 
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5.  Printout  gives: 

a.  raw  data  by  group  (optional) 

b.  for  each  group:  N,  Ex,  Ex  ,  X,  and  SO  (unbiased  estimate) 

c.  ANOVA  source  table 


Comments : 

Program  uses  least  squares  analysis  for  unequal  cell  sizes  on  Factor  A. 
This  ANOVA  design  permits  interaction  effects  to  be  evaluated.  In  a 
split-plot  design,  estimates  of  the  within-block  (Factor  B,  Factor  C, 
interactions  A8 ,  AC,  BC,  and  ABC)  effects  are  more  accurate  than 
estimates  of  between-b 1 ock  (Factor  A)  effects.  If  an  experimenter's 
primary  interest  is  in  the  within-block  effects,  a  split-plot  design 
is  more  powerful  than  a  randomized  factorial  block  design  (AV33) . 

However,  if  equal  precision  for  all  treatment  effects  is  desired,  the 
average  power  of  a  randomized  factorial  block  design  is  greater.  Power 
tests  can  be  used  to  determine  the  number  of  subjects  necessary  for 
the  experiment. 

Test  Data: 

This  program  was  tested  from  data  in  Roger  E.  Kirk,  Experimental  Design 
Procedures  for  the  Behavioral  Sciences,  Wadsworth  Publishing  Company, 

1368,  Pp.  298-302. 

The  accuracy  of  this  program  is  le^s  than  that  obtained  by  the  Statistical 
Analysis  System  and  the  Statistical  Package  for  Social  Sciences.  The 
data  analysis  output  is  only  accurate  to  six  digit  places  instead  of 
ten  digits. 
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RU.AV32 

AV32AB  OR  SPF  P.QR 

REF:  BRUNING  &  KINTZ,  1968 

SECTION  2.9 

THREE-FACTOR  MIXED  DESIGN:  REPEATED  MEASURES  ON  TWO  FACTORS 
NOTE:  PROGRAM  CALCULATES  LEAST  SQUARES 
SOLUTION  IF  UNEQUAL  CELL  N's 

NOTE:  ON  INPUT  OATA  READ  SEQUENCE,  INDEX  FOR  2ND  WITHIN 

FACTOR  (C)  VAR  I tS  MOST  RAPIDLY,  INDEX  FOR  1ST  WITHIN 
FACTOR  (B)  VARIES  NEXT,  THEN  INDEX  FOR  THE  BETWEEN 
FACTOR  (A)  VARIES.  PROGRAM  EXPECTS  ALL  DATA  TO 
BE  IN  ONE  MATRIX  FILE. 

NOTE:  MAX  11  *  11  *  II  DESIGN. 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT: 


6 


DO  YOU  WANT  PRINTOUT  OF  RAW  DATA  1  »  YES  ,  0  =■  NO 

1 

1 1  ITER  INPUT  FILE  NAME: 

MV32 


ENTER  INPUT  DATA  FORMAT; 

(4(4X,F10.4)) 

ENTER  tt  OF  LEVELS  ON  FACTORS  BSC,  AND  tt  OF  GROUPS: 

2,2,2 

ENTER  GP  it  AND  tt  SS  IN  GROUP: 

1.4 

ENTER  GP  tt  AND  tt  SS  IN  GROUP: 

2.4 

AV32  :  STOP  0000 


100 


GROUP: 


1  RAW  DATA 


3.0000 

4.0000 

7.0000 

7.0000 

6.0000 

5.0000 

8.0000 

8.0000 

3.0000 

4.0000 

7.0000 

9.0000 

3.0000 

3.0000 

6.0000 

8.0000 

GROUP: 

2 

RAW  DATA 

1 .0000 

2.0000 

5.0000 

10.0000 

2.0000 

3.0000 

6.0000 

10.0000 

2.0000 

4.0000 

5.0000 

9.0000 

2.0000 

3.0000 

6.0000 

1 1 .0000 

CELL 

N 

SUMX 

SUMX2 

MEAN 

SD 

1  1  1 

4 

15.000 

63.OOO 

3-750 

1 

.500 

1  1  2 

4 

16.000 

66.000 

4.000 

.816 

1  2  1 

4 

28.000 

198.000 

7.000 

.816 

1  2  2 

4 

32.000 

258.000 

8.000 

.816 

2  1  1 

4 

7.000 

13.000 

1.750 

.500 

2  1  2 

4 

12.000 

38.000 

3.000 

.  8l  6 

2  2  1 

4 

22.000 

122.000 

5.500 

.577 

2  2  2 

4 

40.000 

402.000 

10.000 

.816 

SOURCE 

SS 

DF 

MS 

F 

TOTAL 

235.500 

31  • 

BETWEEN  SUBJECTS 

12.5CO 

7. 

GROUPS  (A) 

3.125 

1 . 

3-125 

2  000 

ERROR  l 

;a) 

9.375 

6 . 

1  .562 

WITHIN  SUBJECTS 

223.000 

24. 

FACTOR  B 

162.000 

1  . 

162.000 

199.385 

FACTOR  C 

24.500 

1  . 

24.500 

61  .895 

A  *  B 

6.125 

1  . 

6.125 

7.  "38 

A  *  C 

10.125 

1  . 

10.125 

25.579 

B  *  C 

8.000 

1  . 

8.000 

25.600 

A  *  B  *  ( 

; 

3-125 

1  . 

3-125 

10.000 

ERROR 

(B) 

4.875 

6. 

313 

ERROR 

(0 

2.375 

6. 

.396 

ERROR 

(BC) 

1  .375 

r 

J  . 

.313 

P 


.205762 


.000095 

.000521 

.032735 

.002835 

.002831 

.019275 
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0061 
0002 
0003 
0004 
0005 
0004 
000? 
0008 
0009 
0010 
001  1 
0012 
0013 
0014 
0013 
0014 
001? 
0013 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0024 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0033 
0034 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0044 
0047 
0048 


FTH4  ,  l 

PROGRAM  AV32B 

C  THISPROGRAH  NAME  USED  TO  8E  AV32BC  8UT  NAME  U AS  TO  LONG 

DOUBLE  PRECISION  MSGPS ,  HSERB  <  MS  A ,  MSB , M S AXC ,  HSB XC - MS  AX B , M S A  3 C  , 
$MSER1,MSER2,MSER3,C,A,B,AC,8C,A8,ABC,F,DF1,DF2.PC,PA,PB,PaC, 
*PBC,PAB,  P  BC , P  ABC , T  S  S , SUM  8 ,  SUH4. SUM3>  SUM  1 88 ,  SUM  88 . SUK1 9  B , XB  A  R  , 
fcSD,  CT,  SST,  SUM7B,  SSCPS  ,  SS8,  SSERR8,  SSW  -  3SFA  ,  SSFB  ,  $3  AXC  -  SS8XC  , 
03SAXB, S3 ABC. 3 SENS.  SSER1 - SSER2,S$ER3, DFT.DFB, DFGPS.DFERB, DFW, 
ODFFA<DFFB<DFAXC<  DF8XC,DFAXB, DF ABC <  DFERRW. DFER1 ,  DF  ER  2  < DFER3 
DOUBLE  PRECISION  S X 2< 8 , 8 < 8  ) , D NT RX < 8 < 8  )  , 

I8UM1  8!  8  ),  3UM19!8  ),  SUM2!  8.8, 8  >  ,SUH  11!  8  >  ,  SUM!  2!  8  >, 

ISUM13!  8, 3  >,  SUM14!  8. 9)  ,$UM15<  8 ,8  >,  SUM7A!  3  ) 

DIMENSION  INFILE (3  ) . IFMTC20), 1 3  <  2  7  2  D , I BUFi 254 ) ,  N$3<  10  > 

WRITE!  1,4400) 

4400  FORMAT  (  *  A V3  2BC  OR  3PF  P  OR*,/, 

C" REF i  8RUHING  t  K  I  NT  2 ,  1048“  ,/, 

C'SECTIOM  2.9“  ,/, 

C'THREE-FACTOR  MIXED  DESIGN iREPEATED  MEASURES  ON  TWO  FACTORS",/, 
C"  NOTE:  PROGRAM  CALCULATES  LEaST  SQUARES"  ,/, 

C*  SOLUTION  IF  UNEQUAL  CELL  N '  S  •  > 

WRITE!  1,4404) 

4406  FORMAT!"  NOTE : ON  INPUT  DATA  READ  SEQUENCE,  INDEX  FOR  2ND  “ 

*, "WITHIN* 

C"  FACTOR  ! C  )  VARIES  MOST  RAPIDLY,  INDEX  FOR  1ST  WITHIN",/, 

C*  FACTOR  ! B )  VARIES  NEXT,  THEN  INDEX  FOR  THE  8ETWEEH" ,  / , 

C"  FACTOR  ! A  )  VARIES.  PROGRAM  EXPECTS  ALL  DaTa  TO",/, 

C"  BE  IN  ONE  MATRIX  FILE."  , /  , 

C"  NOTE:  MAX  8*8*8  DESIGN"  > 

WRITE!  1,4412) 

4412  FORMAT  (  "ftENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT:  «  ) 

READ! 1 , *  )  I  UN  I  T 

WRITE!  1,4413) 

4413  FORMAT  < " DO  YOU  WANT  PRINTOUT  OF  RAW  DATA  1  =  YES  .  0  =  NO 
READ! 1  ,  *  )  IPTO 

WRITE!  1, 4414) 

4414  FORMAT  !  "42NTER  INPUT  FILENAME:  "  ) 

READ!  1,1005  )  I NF I LE 

100?  FORMAT ( 3 A2) 

IDCBS-234 
WRl  TE!  1,4415) 

*1415  FORMAT  (  "4ENTER  INPUT  DATA  FORMAT:'  ) 

READ! 1,1001  )  I F  MT 
1001  FORMAT <  20A2  ) 

CALL  OPE II!  18,  IER,  INFILE,  3,  0,  -  2,  IDC8S  ) 

IF!  IER  .GE  0  >  GO  TO  234 
WRITE!  1, 546  )  INFILE,  IER 

546  F0RMAT(5X,3A2, 5X, "  FAILED  TO  OPEN  ,  IER  *  “,I5> 

STOP  546 
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i 


><>49 

0430 

0031 

0052 

0033 

0054 

0033 

0036 

0037 

0039 

0059 

0060 

0061 

0062 

0063 

0064 

0063 

0066 

>067 

0069 

0069 

0070 

0071 

0072 

0073 

0074 

0073 

0076 

0077 

0079 

0079 

ooeo 
0091 
0092 
0093 
0084 
0045 
0OC6 
0087 
0089 
0089 
0090 
0091 
0092 
0093 
009  4 
0093 
>096 
0097 
‘t-093 
0099 
OlOC 
0101 
0102 
0103 
0104 
0105 
0106 


234  881 TE<  1  J  4 1 6 ) 

4416  F  QRH AT  < •*EMT£ft  •  OF  LEVELS  Oil  FACTORS  B  6  C,  AND  •  OF  GROUPS 
READ<1,*>  HLF1R, NLF2R,NGPS 

DC  60  13*1, NCPS 
VRI TE< 1, 44i7> 

4417  FORMAT  <  'nENT'-R  GP  t  ;N  D  •  SS  IN  GROUP:  «) 

REAO<  1  ,  *  )  HG  (SSCNG) 

IF(IPTO.EQ.l)  9RITE< I  lie IT, 2)  HG 

2  F  ORM AT( "  GROUP?  • ,  14 , *  RAM  OA T A  *  ) 

K»HSS<  NC  ) 

DO  60  N*  1  ,  K 
SUH9-0 

DO  37  11*1,8 
SUH  1 8< II >-0 
SUM  1 9<  11  )*0 

57  CONTINUE 

CALL  READF( IB,  IER,  IBUF) 

CALL  CODE 

RCAD< IBUF, IFH1  X <DMTRX< I  1, 12 ), 12*1 ,NLF2R>, 1 1 *1 , NLF1R  ) 

IF<  IPTO. EQ. 1 OMRITEC  IUNIT, IFNT  )< <OMTRX<  I  1.  12  )  , 12*1  - NLF2R)  , 

*1 1-1 ,NLF1R) 

TSS-TSS+1  . 

DO  59  11*1, ML FIR 
00  58  1 2* 1 , NLF2R 
SUH8*SUM9+DMTRX<  II,  I?  ) 

SUH 1 9< II >*SUM18< II  )+uHTRX< II ,  12  ) 

SUH19< 12 )*SUH19< 12  )+OHTRX< 1 1 ,  12  > 

SUM2< 1 1,  12, HG  >*SUM2< I  1 , 12, MG  >+DNTRX<  1 1 ,  12  ) 

SUH4-SUH4+DNTRXC  11,12) 

SUH3*SUH3+DMTRX<  II .  12  )**2 

SX2(  II , I2,NG)»SX2<  I  1,  12 , HG  >+DNTRX<  II , 12  >**2 

58  CONTINUE 

SUH18B-SUH188  +  SUN18( I  1  )**2/NLF?k 

59  CONTINUE 
SUM88*SrP8B+SUM8**2 
DO  11  12* 1 , NLF  2R 

SUK19B»SUH19A  +  SUI119<  I2)**2/NL  1R 
11  CONTINUE 

60  CONTINUE 

8RI T  E( IUNIT, 605) 

605  FORM AT <  *  0  CELL  N  SUHX  SUMX2  MEAN* 

S,  ■  SO'  ) 

DO  61  13*1, MGPS 
DO  61  1 1  *  1 , NLF  1 R 

DO  61  12* l , NLF2R 
ANS  *  HSS< 13) 

X8AR*SUN2< 11,12,13  )/ANS 

SO*OSMRT<  C ANS*SX2<  I  1 ,  12 ,  13  )-<  SUH2<  1 1 , 12 , I  3  >**2  )  V 
XC  ANS  *<  AN S -  l  .  )  )  ) 

8RIVE<  IUNIT,  606)  13,  I1,I2,NSS<  I3),SUN2(  11,  12,  13  >, 

4SX2C  11,12,13), X8 AR  ,  SO 

60  6  F  OR  H  AT  <  3  I  2 . 3X  ,  I4,3X,4(1X,F10.3>) 

61  CONTINUE 

CT*SUM4**2/'(  T  S  S*  ML  F  1R*NLF2R  ) 

S  ST  x  SUM3-CT 
DO  79  11*1, HG P  S 
DO  73  12*1,  HL FIR 
DO  73  13*1, HLF2R 
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0107 

0108 

0109 

0110 

0111 

0112 

0113 

0114 

78 

0113 

0114 

79 

0117 

0118 

0119 

0120 

<•121 

0122 

119 

0  .,23 

0124 

0123 

129 

0124 

0127 

0128 

0129 

139 

0130 

0131 

0132 

0133 

149 

0134 

0133 

0134 

0137 

139 

0138 

0139 

0140 

0141 

0142 

149 

0143 

0144 

0143 

0144 

0147 

0148 

0149 

0130 

0131 

0132 

0133 

0134 

0133 

0134 

0137 

0138 

0139 

0140 

SUN7A<  II  >-SUN7A<  II  >+SUN2< 12,  13, II  ) 

SUH1 1< 12 )>SUH1 1( 12  >+8UH2< 12* 13,  1 1  > 

SUM  1 2( 13  )«SUM12( 13  )  +  SUH2  < 12, 13.  II  ) 

SUM  1 3< 12, II  >-$UK13<  12.  II  >+SUH2<  12  ,  13.11  > 

SUM  1 4< 13, II >-SUH14<  13,  I  1  >+SUH2<  12,  13, I  1  > 

SUM  1 3< 12, 13  >-SUH15< 12, 13  >+SUN2<  12,  13,  I  1  > 

SUN2< 12, 13, II >«SUM2< 12, 13, II >--2 
CONTIHUE 

SUH?B-SUH78+<  SUH7A<  II  >e*2/<NSS<  II  ><•<  NLF1R*NLF2R) 

CONTINUE 

SSCP8-SUH7B-CT 

3SB-3UH8B/( NLF 1 R *M L F2 R > - CT 

3SERRB-SSB-SSGPS 

8SU-S3T-SSB 

00  1 19  I1-1.HLF1R 

S8FA-SSFA+SUH1 1<  II  >**2/<T$S*MLF2R  > 

SSFA-SSFA-CT 
DO  129  I  1 "1 , NLF2R 

SSFB-SSFB«-SUH12<  II  >**2/C  TS$*NLF1R  ) 

SSFB-SSFB-CT 
DO  139  1 1 -1 , NLF1 R 
DO  139  12-1, NGPS 

SSAXC-SSAXC+SUM13( II, I2)**2/CNSS< I2)*NLF2R> 
SSAXC-SSAXC-SSGPS-SSFA-CT 
DO  149  I  1-1 , N  L  F2  R 
DO  149  12-1, NGPS 

SS8XC-SS8XC+SUN1 4<  I i ,  12  )**2/<  NS$<  I 2>*NLF1 R  > 

SSBXC-SSBXC-SSGPS-SSFB-CT 

DO  1 39  I1-1.NLF1R 

DO  1 39  I  2*>1 ,  NLF2R 

SSAXB*SSAXB>SUH15< II, I2)**2/TSS 

SSAXB-SSAXB-SSFA-SSFB-CT 

DO  1 69  I1-1.NLF1R 

DO  149  12-1 ,NLF2R 

DO  149  13-1, NGPS 

38ABC-SSABC+SUH2( I  1 , 12.  I  3  > /N  S  S<  13  ) 
SSABC»SSA8C-3SGPS-SSFA-SSF8-SSAXC-$SBXC-S$AXB-CT 
3SEUS«8SU-SSFH-SSFB-SSAXC-SSBXC-SSrtXB- SSABC 
SSER1-SUM188-SS8-SSFA-SSAXC-CT 
S8ER2-8UH19B-SS8-SSFB-3SBXC-C  T 
S8ER3-SSEUS-SSER 1-SSER2 
DFT»TSS*NLF1R*NLF2R-1  . 

0FB-T33- 1 . 

DFGP3-NGPS- 1 . 

DFERB-OF  B-OFGP  3 
DFU-DFT-OFB 
DFFA-NLF 1R- 1 . 

DFF8-NLF2R-  1  . 

DFAXC-DFGPS-DFFA 
DFBXC-DFGPS-0FF8 
OFAXB-OFFA-OFFB 
D FA 8 C- DF F A* OFF B- OF G?' 

DFERRU-OFU-OFFA-OFFB-OF A XC -D F 8X C- 0 F A XB -  OF  ABC 
DO  219  11*1, M GPS 


inA 


/ 


0141 

DFERlaDFERl+OFFA*<  NSS<  I  1  )-  1  > 

0142 

DFER2aDFER2*0FFB*<  NSS<  I  1  >-  1  ) 

0143 

0FER3aDFER3+DFFA*DFFB*<  NSS(  I  1  >-  1  ) 

0144 

219 

CONTINUE 

0143 

HSCPSa8SCPS/DFGPS 

0144 

NSERB-SSERRB/'DFERB 

0147 

HBA-SSFA^DFFA 

0141 

NSP-S3FB/DFFB 

0149 

N8AXCaSSAX(VDFAXC 

0170 

N3BXCa8SBXC7DFBXC 

0171 

NSAXBaSS AX3/DF AXB 

017**, 

HSABC-3SABC/0FABC 

0173 

NSER1"3SER1/0FER1 

0174 

H3£R2a3SER2/0FER2 

0173 

H3EK3aSSER3/D  F  ER  3 

0174 

C  aH'3GP  3/NSER0 

0177 

AaNSA/NSERl 

0179 

8aN$B/1S£R2 

0174 

AC-HSAXC/'HSER  1 

0190 

BC»N8BXC/NSER  2 

0191 

AB*NSAXB/NSER3 

0192 

ABCaNS A0C/MSER3 

0193 

F«C 

0194 

DF1-DFGP3 

0193 

0F2-0FER8 

0194 

CALL  FPRO0<  F, OFl ,0F2, 1,  PC) 

0197 

F  «A 

0199 

OFl-OFFA 

0199 

0F2-0FER1 

0140 

C  L  FPROB<  F,  OF  1 , 0F2  /  2 »  PA> 

0191 

F-8 

0192 

OFl-OFFB 

0143 

DF2-0FER2 

0144 

CALL  FPROB<F.OFi«DF2,2/PB) 

0193 

FaAC 

0194 

OFl -OFAXC 

0147 

0F2a0FER 1 

0199 

CALL  FPROB<  F,  OFl  ,0F2,  Z,  PAC  > 

0194 

F-BC 

0200 

OFl "OFBXC 

0201 

0F2a0FERt 

0202 

CALL  FPR08< F. OFl -DF2, Z,  P8C > 

0203 

F -AB 

0204 

OFl ■ OF  AX B 

0203 

0F2«0FER3 

0204 

CALL  FP«QB< F, OFl , 0F2, 7, PAB > 

0207 

FaABC 

0209 

OFl-OFABC 

0209 

0F2-0FER3 

0210 

CALL  FPR08<  F.  OFl  -  0F2  ■  l,  PABC  ) 

021  l 

4R I  T  S(  I’JNIT.  1004  > 

0212 

1004 

FORNAT(  *  0*aaaa  SOURCE  •  •  ••  •  *  ,  5X  ,  *  <?  S  *  ,  4  X  ,  *  OF  *  ,  9  X  , 

0213 

47X* 

1  n  z 


0214 
0213 
0214 
0217 
0211 
0210 
0220 
0221 
0222 
0223 
0224 
0223 
0220 
0227 
0  22t 
0229 
0230 
0231 
0232 
0233 
0234 


MRITE<  IUHIT,  10  03  >  SST  ,  DFT  .  ?«*B*  DFB  *  SSGPS  ,  DFGPS ,  US  CPS  , 

0C*PC* SSERRB*0FERB* HSER8  <  SSU . DFW*SSFA*OFFA*HSA*A* FA* 
08SFB*DFFB*HSB*B*PB*SSAXC*DFAXC»NSAXC/AC»PAC<SS8XC,DFBXC. 
0HS8XC* SC* P0C* SSAXB* OF AXB * MSAXB* AS* PAB*  SSABC -  OF  ABC . HSABC.  ABC* 
OPASC  *  SSER  1 . DFER1 *  HSER 1  * SSER2 , OF  Eft  2  * RSER2* SSER3 * 0FER3 , HSE R3 
1003  FORHAK'OTOTAL**  14X*F10.3,F3  .  07  *  BETMEEM  SUBJECTS  ",  F  1 1  .  3  , 

OF 3. 73X* 'CROUPS  <A)'*3X,Fi03*FS.*4X*2F10.3.F104/7X*'ERR0ft<A>' 
0,  3X*F10.  3*F3.  *  4X*F10. 3* /'O  M1THIH  SUB J ECTS ' * 2X * F  1  0  3  * F3  . 73X * 
O'  FAC  TOR  B',7X*F10. 3*F3.  , 4X * 2F  10 . 3 . FI  0  4*75X* 'FACTOR  C'*7X» 

OF  10 . 3* 

OF 3.  *4X*2F10.3*F10. 4  *  7  3X  * 'A  X  B' *  1  OX* FI  0  3  * F5  .  . 4X . 2F 10  3* FI  0  4* 
0/3X  *  'A  X  C*  *  1 0  X*  F 1 0 . 3 , F  3 . *  4X*  2F10 . 3*  FIO . 6  < /3X  * *8  X  C'.lOX* 

OF  10 . 3* 

OF  3.  *4X<2F10.3*F10.4*73X.  'A  X  B  X  C  '  * 3X * F  10 . 3. F3  * 4X, 2F1 0  3  * 
OFIO  .  4.  X,  7X,  'ERROR  <  B  >  '  ,  4X*  F 1  0  3  *  F3  0  *  4X  *  F  1 0  .  3  * 77X  ,  '  Eft  ft  OR  (C>* 

0, 4X 

0,F10.3*F3.,4X*F10. 3*/*7X. 'ERROR  < BC  >  • , 3X* FI  0 .3 . F3 . . 4X , Fl 0  3) 
CALL  CLOSE<  IB  > 

3T0P 

ENO 

EHOO 
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AV33  (RBF-P.a.R)  (Three-way  ANOVA,  Repeated  Measures) 

Purpose : 

This  program  performs  a  three-way  randomized  factorial  block 
analysis  of  variance. 


Mathematical  Model: 


The 


The 


model  for  this  design  is: 

X..  *  u  +  A .  +  B .  +  L .  +  AB..+AC., 

i  j  m  i  j  k  i  j  i  k 

hypotheses  to  be  tested  are: 


h  BC . ,  +  ABC.  +  7  +  E.  . 


i  jk 


'  i  j  km 


Ho:  A .  *  0  for  all  i 

i 

Ho:  B .  »  0  for  all  j 
J 

Ho:  C.  *  0  for  a  I  1  k 
k 

Ho :  A3 . .  -  0  for  a  1  1  i  j 
'  J 

Ho:  AC  ..  *  0  for  al 1  ik 
i  k 

Ho:  BC  *  0  for  all  j k 
jk  J 

He  ABC...  *  0  for  all  ijk 

i  j  k  J 

The  fixed  effect  (Model  l)  was  assumed  in  the  derivation  of  the  expected 
values  of  the  mean  squares. 


Layout  of  Design: 


31 

B2 

02 

_ 1 _ 

C1 

cz 

C, 

C2 

C1 

C2 

C1 

C2 

s. 

S1 

S! 

51 

S1 

S. 

S1 

S1 

5  represents  a 
set  of  subjects 


There  are  two  Factors  (A,  B,  C)  with  p,  a,  and  r  levels  of  treat- 
men  ts,  respect  i  ve  1  y  .  The  experiment  consists  of  pqr  treatment 
comb inat ions .  The  above  example  includes  two  levels  of  each  of 
Factors  A,  B,  ano  C. 
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2.  Subjects  are  randomly  assigned  to  the  pqr  treatment  combina¬ 
tions  with  each  subject  or  a  set  of  matched  subjects  receiving 
all  combinations.  The  order  of  administration  of  the  pqr 
combination  is  randomized  independently  for  each  subject.  If 
sets  of  matched  subjects  are  used,  one  subject  from  each  set 
is  randomly  assigned  to  each  treatment  combination. 

3.  There  should  be  more  than  one  subject  per  pqr  treatment  com¬ 
bination. 


User  Considerations  and  Procedures: 


1  . 


A  data  file  must  be  created  in  matrix  form.  On  read  input,  Factor 
C  varies  most  rapidly,  then  Factor  B,  then  subjects,  and  finally 
Factor  A.  (For  example,  record  one  contains  subject  one,  treat¬ 


ments  abCj  1 1  ,  abc  ^  j ? 


,  a,DCj|r;  record  two  contains  subject 


one,  treatments  abc^21,  abc122  .  . 

subject  one  until  abc,  ,,  abc,  ,  . 

1  q  I  1 q2 


,  abCj2r;  records  continue  for 

. ,  abc,  have  been  entered. 

I  qr 


The  remaining  subjects  in  Factor  A  should  be  entered  in  the  same 
manner.  Repeat  the  same  procedures  for  subjects  in  Factor  A 
A  printout  of  the  raw  data  would  show  r  data  po  nts  per  line. 


2  . 


3. 


The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  Pe  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (.#2). 

Parameters  required: 

a.  number  of  levels  of  Factor  A  (see  comments) 

b.  number  of  levels  of  Factor  B  (see  comments) 

c.  number  of  levels  of  Factor  C  (see  comments) 

d.  number  of  subjects  per  cell  (treatment  combination)  (see  comments! 

e .  name  of  data  file 


f.  format  of  data  file 
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5.  Printout  gives: 

a.  raw  data  by  group  (optional) 

2  _ 

b .  for  each  group:  N,  2x,  lx  ,  X,  and  SO  (unbiased  estimate) 

c.  ANOVA  source  table 


Comments : 

This  ANOVA  design  permits  interaction  effects  to  be  evaluated.  Power 
tests  can  be  used  to  determine  the  number  of  subjects  necessary  for 
the  experiment. 

Due  to  the  limited  amount  of  memory,  the  experimental  design  cannot 


exceed  the  following 

cond i t i ons 

1  . 

p  <  10;  q  <  10; 

r  <  10 

2. 

n  <  50 

3. 

nqr<  1000 

4. 

rn  <  100 

5. 

qn  <  100 

Test  Data: 

This  program  was  tested  using  data  from  Roger  E.  Kirk,  Exper imenta 1 
Design  Procedures  for  the  Behavioral  Sciences,  Wadsworth  PubTTshing 
Company  ,  1368 ,  Pp*i  239-240 . 

Single  precision  was  used  for  this  program.  Accuracy  of  this  program 
is  less  than  that  obtained  by  the  Statistica1  Analvsis  System  and 
the  Statistical  Package  for  Social  Sciences.  The  data  analysis  out¬ 
put  is  only  accurate  to  six  di.,it  places  instead  of  ten  digits. 
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RU.AV33 

RSF-P , Q, R  OR  AV33 

THREE  WAY  ANOVA  WITH  REPEATED  MEASURES  ON  ALL  FACTORS. 
ENTER  NAME  OF  DATA  FILE 
#JRBFR 

ENTER  FORMAT  OF  DATA 
(2 (2X, F8 .4) ) 


LEVELS  OF  A 

2 

LEVELS  OF  9 

2 

LEVELS  OF  C 

2 

SS/CELL 

*4 

ENTER  I  FOR  CRT  OUTPUT,  6  FOR  LINEPRINTER 

6 

DO  YOU  WISH  A  PRINTOUT  OF  RAW  DATA  (1-YES,  0-NO) 

0 


CELL 

N 

SUMX 

SUMX2 

MEAN 

SD 

1  1  1 

4 

15.000 

63.000 

3.750 

1 .500 

1  1  2 

4 

16.000 

66.000 

4.000 

.816 

1  2  1 

4 

28.000 

198.000 

7.000 

.816 

1  2  2 

4 

32.000 

258.000 

3.000 

.816 

2  1  1 

4 

7.000 

13.000 

1.750 

.300 

2  1  2 

4 

12.000 

38.000 

3.000 

.316 

2  2  1 

4 

22.000 

122.000 

5.500 

•  577 

2  2  2 

4 

40.000 

402.000 

10.000 

.816 

SOURCE  TABLE 


SOURCE 

SS 

DF 

MS 

F 

P(F) 

A 

3 

.125 

1 

3-125 

4.953 

•  035 

B 

162 

.000 

1 

162.000 

256.755 

.000 

C 

24 

.500 

1 

24.500 

38.830 

.000 

AB 

6 

.125 

1 

6.125 

9.708 

.005 

AC 

10 

.125 

1 

10.125 

16.047 

.000 

BC 

8 

.000 

1 

8.000 

12.679 

.000 

ABC 

3 

.125 

1 

3-125 

4.953 

.035 

RESIDUAL 

13 

.250 

21  . 

.631 

TOTAL  235.500  31. 


!  !  1 


*  AV33  T-00003  IS  ON  CR00002  USING  00024  BUS  R»0000 


0001 
0002 
0003 
0004 
0003 
0006 
0007 
0008 
0008 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0019 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0026 
0027 
0023 
0029 
0030 
0031 
0032 
0033 
0034 
0033 
0036 
0037 
0  03  8 
0039 
0040 
0041 
0042 
0043 
0044 
0043 
0046 
0047 
0048 
0049 
0030 
0031 
0032 


FTH4  /  L 

PROGRAM  AV33 

DOUBLE  PRECISION  S J J! 10 > , UK! 10 > , SLL! 3 0  ) , PO Q< 1 0 > , CK< 1 0 > 

DOUBLE  PRECISION  DXX!  100  > 

DOUBLE  PRECISION  C B B<  1 0 > , 8 CC (  1 0 ) , BSS! 1 00  ) , C SS<  100  ) , 3C C !  600  ) , 
4SSS!30)».!>XS,SX,BX,SI»8A,CA,A,AS,AB,CB»AC,BC,SS,8,C,XN,X8AR, 
$SD.Z,G,0i,ZJ,ZI»ZH,ZZJ,ZZL,7ZM,XK,Xl!K,ZEE,Pl,P2,ZZ,ZQ,Zl!l, ZK2 
DOUBLE  PRECISION  SX  1<  600  >,  SX2<  600  ) ,  XR<  20  ) 

DIMENSION  NFILE!  3),  1FMT!  20  >,  IBUF!  256  >,  IB!  2?2  > 

INTEGER  P,0,R 

DATA  SX/ 600*0 .  '0  * >  SX2 /6  0  0*0 . DO/ 

DATA  ,  SkK, ?  LL , PUC,  CK  ,  DXX/  l  90*0  .  DO  / 

DATA  C9B. ACC*  BSS , C  S  S , S..  C,SSS/8?0*0  .  *  0/ 

DATA  XS,  SX, BX , SI , BA,CA, rt , AS, A8, AC - 8C ,S$,B,C/14*0  DO/ 

WRITE!  1 .  4 40 o  > 

4400  FORMAT  !"R8F-P,Q,R  OR  AV33  ", 

♦  / , 3X , *  THREE  WAY  ANOVA  WITH  REPEATED  MEASURES  OH  ALL  ", 

#■  FACTORS . * ) 

WRITE!  1,4401  ) 

4401  FORMAT! "ENTER  NAME  OF  DATA  FILE") 

READ! 1,7)  HFILE 

7  F0RMAT!3A2) 

WRITE!  I,  4402  ) 

4402  FORMAT  !  ■  ENTER  FORMAT  OF  DATA  *  > 

REAO! 1,6)  IFMT 

6  FORMAT! 20A2  ) 

CALL  OPEN! IB, I ER, HFILE, 3,0,-2,236  > 

IF!  IER  .LT  .0  )  GO  TO  999 
WRITE!  1,  4403  ) 

4403  FORMAT  !  *  LEVELS  OF  A  *  ) 

READ!!,*)  P 

WHITE!  1,4404) 

4404  FORMAT  !  *  LEVELS  OF  3  ■> 

READ<1,*)  0 

WRITE!  1,  4403) 

4405  FORMAT  !  1  LEVELS  OF  C  * > 

REAO!!,*)  R 

WRITE!  t ,  4406) 

4406  FORMAT  <  *  SS/CELL  ') 

READ! 1 , *  )  K 
0»Q*R*H 

WRITE!  1,  224  > 

224  FORMAT! -EHTEt’  1  FOR  CRT  OUTPUT,  6  FOR  L IHEPR  INTER  ■  ) 

READ!!,*)  IUNIT 
WRITE!  1,2-3) 

223  FORMAT! *00  YOU  WISH  A  PRINTOUT  OF  RAW  DATA  <1»YES,  0«NQ)"> 
READ!!,*)  IPTO 
DO  90  1-1  ,P 
DO  440  L* 1 , H 
DO  320  W*l,  Q 
CALL  REAOF!  18,  IER,  I8UF) 

CALL  C  00  E 


READ< I8UF / IFHT  )  < XR< I  3 > ,  13-1 > R  ) 

IF< IPTO. EB.  t )  «RITE< IUNIT,  IFHT)  < XR< 12  ) , I 2-  1 , R  ) 
00  699  K-l.R 
X -X R <  K  ) 

i  1 1-<  i -i  )«a*R  ♦  <  j-  l  >*r  *k 

3X2  (  III  >«SX2<  III)  ♦  X  *X 

sxi<  n  i  >-sxi<:  in  )** 
xs-xs  ♦  x *x 

SX-SX  *  X 

BX-BX+X 

SI-SI+X 

3JJ<  J )»3J J< J  > ♦  X 
SKK<  K>«SKK< K>  +  X 
SLL<  L)-SU.<  L)*X 
PQ8C J  >«P98< J  >*X 
CK<  X  >-CK<  K)  +  X 
I  I-J*8*<  K-l  ) 

OXX<  II  )-OXX<  I  I  >*X 
C9B(  II  )»C88<  I  I  )+X 
ACC C K)-ACC<  K>*X 
I  I«J+Q*<L-1  ) 

3SS(  II  )-8SS< 1 1  >*X 
I  I»K+R*<  L-l  ) 

CSS<  II  >-CSS<  I  I  )+X 
N-H+l 

SCC(  H  )-SCC< N )  ♦  X 
SSS<  l)»SSS<  D  +  X 
8 A-B A+BX-BX/R 
3X-0 

DO  440  K  ■  1 ,  R 
CA-CA*CK<  K)*CK<X VQ 
CK<  X  >-0 

A-A  +  SI-SIA  Q*R*N  > 

SI-0 

DO  390  L-  1  /  H 

AS-AS+SLUL  >*SIUI )/< Q*R  > 

SLL<  L ) -0 
DO  930  J«i,  9 

AB*A8+P88<J  )*P98<  J  >A  R*M  > 

P QQ (  J  )  -0 
DO  930  K  »  1  <  R 
1 1 - j *a*<  k - 1  > 

CB»C8*CBB< I  I )*C8B<  I  I >/H 
C8B(  II  )»0 
DO  920  K ■ l / R 

AC-AC*ACC<K  >*ACC<K >A  H*Q  > 

ACC<  K>«0 
M-0 

CONTINUE 
DO  1120  J-l /O 
I/O  1  120  <-l / R 
I  I-J  *8 -<  K-l  ) 

8C-BC*DXX<  I  I  )*OXX<  I  I  )»'<  P-N  ) 

CONTINUE 


0107 

DO  1040  L-l.N 

0108 

SS-SS*8S8<t.  )*SS3CL  >/<  P*Q*R  > 

0109 

1040 

CONTINUE 

0110 

DO  1240  J«l,fl 

0111 

B»B  +  SJ»K  J  >*SJ  J<  J  VC  P*R*N  > 

0112 

1240 

CONTINUE 

0113 

DO  1230  K«1,R 

0114 

C"C  +  5XKCIO*SKKCKVCP*Q*N> 

0113 

1230 

CONTINUE 

0118 

X»SX*SX/C  P*Q*R*N  ) 

0  117 

UR  I  TEC  IUH  IT , 223  > 

0  118 

223 

FORNATC/V/V,  *0  CELLB<3X/*K*  /  iiX<  *SUHX*,7X,  •  SUHX2  * ,  7X  ,  "  MEAN • , 

0119 

17X#  *  SO • » /  ) 

0120 

XH»N 

0121 

DO  226  I-t.P 

0122 

DO  226  J-l.Q 

0123 

DO  226  K-l/R 

0124 

1 1 1 ■< I - 1  )*Q*R  ♦<  J- 1 >*R  +  K 

0  123 

XBAR-SX1C III VXN 

0126 

SD-03QRTC  CSX2C II I )-C  SX1C II I > * SX 1 <  I II  )  >/XM  VC  XN-l  .  ) ) 

0127 

URITEC  IUN  11  ,  227  )  I  J,K,H.SX1C  III>,SX2C  III  >,XBAR,  SO 

0128 

227 

F0RNATC3I2,3X,I4,3X,4C1X,F10.3>> 

0129 

226 

CONTINUE 

0  130 

URITEC  IUNIT  /  20  1 1  > 

0  131 

2011 

FORMATC  IX, 77,  *  SOURCF  TABLE" 

0132 

777, IX, "SOURCE  SS  DF  NS  F  * / 

0133 

1  1  2X  , *PCF >«, n 

0134 

2-XS+X-SS-C8 

0  133 

0«<  N-l  )*C  P*Q*R-1  > 

0  136 

01*0 

0137 

ZJ-A-X 

0138 

K-P-l 

0139 

ZI-Z/O 

0140 

ZL-ZJ7K 

0141 

ZN*ZL/ZI 

0142 

ZZJ-B-X 

0143 

KK*Q- l 

0144 

ZZL-ZZJ7KK 

0  143 

ZZH«  ZZL7  Z I 

0  146 

X1C-K 

0  147 

XKK-KK 

0148 

CALL  FPROBC ZH , XX, 0 1 ,  ZEE , PI  > 

0  149 

CALL  FPROBC ZZM,XKK, 01 ,ZEE, P2 > 

0130 

URITEC  IUNIT/3110)ZJ/K/ZL/ZH/ PI. ZZJ/KK/ZZL/ZZH.P2 

0131 

31  10 

FORMATC IX."  A  "  .  F 8 . 3 . 3 X .  I 3 .  2C 5 X . F8 . 3  ) , 3 X . F 1 0  6 , 

0132 

77"  B  *  .F8  .3.5X,  13,  2C3X,  F8.  3  ).  3X.F  1  0 . 6  ) 

0  133 

ZJ»C-X 

0134 

K»R-t 

0  133 

ZL-ZJ7K 

0136 

ZN-ZL/ZI 

0137 

ZZJ-AB+X-A-B 

0138 

kk»c p-i >*<a-i > 

0139 

ZZL*ZZ J/KK 

0  160 

ZZN-ZZL7ZI 

01*1 
0162 
0163 
0164 
0  163 
0  166 
0167 
0168 
0  169 
0170 
0171 
0  1/  2 
0173 
0174 
0175 
0  176 
0177 
0178 
0  l  7  9 
0180 
0181 
0  182 
0183 
0184 
0183 
0186 
0187 
0  11*8 
0  189 
0  190 
0191 
0  192 
0193 
0  194 
0193 
0196 
0  197 
0  198 
0  199 
0  20  0 


23  10 


2510 


2710 


999 

4408 

787 


XK»K 

xkk>kk 

CALL  FPR08!  ZH  ,  XK  ,  0  1 ,  ZEE  ,  P 1  ) 

CALL  FPROB!  ZZM.XKK, 01.ZEE, P2 > 

WRITE!  IUH IT, 2310  >ZJ ,K,ZL,Zh, Pt, ZZJ ,KK, ZZL,22H, P2 
FORMAT  <  1  X  ,  "  C  • ,F8. 3,3X, 13, 2! 5X, F8 . 3) , 3X , F 10 . 6, 

77*  A8  " ,F8  3,3X, 13, 2! 3X. F8. 3> , 3X,F10. 6 > 

Z J*AC+X- A-C 
X ■<  P-1 
ZL»Z J7K 
ZH*Zl 7ZI 
Z2J "BC  +X-8-C 
XK»< Q-l ) 


ZZL-ZZJ7KK 

ZZM-Z2L7Z1 

ZKi-K 

ZK2-KK 

CALL  FPRQB! ZH  »  ZK 1 »  0 1 , ZEE , P  l  > 


CP'L  FPR08<ZZM, 2X2,01  ,2EE,P2  > 

WRl , E! IUNIT,2S10  >2J ,K,2L,ZH, PI, ZZJ ,KK, ZZL.ZZN, P2 
FORMAT! IX,"  AC  •  ,  F9  .  3 , 3X ,  I  3 ,  2!  5X ,  F8  .  3  > ,  3X  ,  F  1 0  l 

8C  VF9.3  3X,I3,2(SX,F8.3),3X.F10.6> 

ZJ*CO+A*B-rC-X-AB-AC-BC 
K  »K  *  !  P  -  1  ) 

ZL-ZJ7K 
ZH-ZL7ZI 
ZZ-XS-X 
ZO"M*P*Q*R-  l 
XK-X 


CALL  FPR08<ZN,XK,0l,ZEE,Pl > 

WRIT E!  IUN17, 2710  >24 ,K,ZL#ZH, Pi<  2,0,21, ZZ.ZO 

//!RS^T<,li<'"A8C  *  ,F8 .  3,3X,  13. 2<  5X,F8.3),3X,F10.  6, 

77  RESIDUAL  * , F 1 0 . 3 , F8 . 0 , 5X , F8 . 3 

777*  TOTAL  * , F8 . 3 , l X, F8 . 0, 5X , FB . 3 , 77  ) 

CALL  CLOSE! 18, IER  ) 

GO  TO  987 
WRITE!  1 ,  4408) 

FORMAT  !  "ERROR  OH  CALL  OPEN  STATEMENT"  ) 

E  HD 
END* 
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AC  1 0  (CRAC)  (One-way  Analysis  of  Covariance) 

Purpose : 

This  program  performs  a  one-way  analysis  of  covariance  for  one 
covariate  without  replication. 

Mathematical  Model: 


The  model  of  this  design  is: 


Yi j(adj) 


Y .  . 
'  J 


(X, 


i  J 


X.  .) 


u  +  B  . 

J 


+ 


i  (j/ 


where: 


Y.  =  un.'djusted  criterion  measure 
i  J 

*  ommon  population  linerar  regression  coefficient  for 
treatment  levels 

X..  =  covariate  measure  for  subject  i  in  treatment  population  j 
'  J 

The  hypothesis  to  be  tested  is: 

Ho:  B  j  •-  0  for  a  I  1  j 


The  fixed  effect  model  (Model  l)  was  assumed  in  the  deviation  of  the 
expected  values  of  the  mean  squares. 


Layout  of  Design: 


r 

b , 

b_ 

b, 

i 

2 

k 

-< 

X 

Y  X 

Y  X 

S1 

S  . 

t- 

J 

_ 

1 .  There  are  k  levels  of  treatment  B. 

2.  Subjects  are  randomly  asriqned  with  each  subject  designated 
to  receive  only  one  level. 

3.  The  experiment  contains  a  source  of  variation  believed  to 
affect  the  dependent  variable  and  i j  conside,~d  irrelevant  to 
the  objectives  of  the  experiment.  A  measure  of  the  extraneous 
variation  can  be  obtained  which  does  not  include  effects 
attributable  to  the  treatment. 
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4.  The  relationship  of  the  dependent  variable  and  the  cavariate 
must  be  1 i near  . 

Jser  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  in  sequential  form.  For  each  subject, 
enter  the  dependent  measure  (V)  first,  then  the  covariate  (X) . 

(For  example,  subject  one  for  treatment  b^,  and  the  covariate  is 

the  first  record,  subject  two  for  treatment  b^,  and  the  covariate 

is  the  second  record.  Repeat  for  all  subjects  in  b^  then  i noex  to 

the  next  level  of  B.)  A  printout  of  raw  data  should  show  two  data 

point,  per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hardcopy 
can  be  obtained  from  the  line  printer.  Option:  1  for  CRT  output, 
6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2). 

4.  Parameters  required: 

a.  number  of  levels  of  B  (maximum  1 00 ) 

b.  number  of  subjects  per  group  (level)  (maximum  32767) 

c .  name  of  data  file 

d.  format  of  data  file 

5.  Pr i ntout  g i ves  : 

a.  raw  data  by  group  (opti  nal) 

2  — 

b.  for  e  .eh  group:  N,  Cy,  Cy  ,  Y,  SD 

c.  ANGVA  source  table 

d.  intermediate  calculations  of  the  adjusted  scores 

e.  correlation  coefficients 
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Comments : 


Analysis  of  covariance  uses  statistical  control  to  reduce  experimental 
error  and  obtain  unbiased  estimates  of  treatment  effects.  The  procedure 
involves  measuring  the  dependent  variable  and  an  additional  covariate. 
The  covariate  represents  a  source  of  variation  tl.at  has  not  been  con¬ 
trolled  in  the  experiment  and  is  believed  to  affect  the  dependent 
variable.  With  analysis  of  covariance,  the  dependent  measure  can  be 
adjusted  so  as  to  remove  the  effects  of  the  uncontrolled  source  of 
variation  represented  by  the  covariate. 

Before  comparisons  among  means  can  be  made,  the  means  must  be  adjusted 
for  the  covariate.  The  intermediate  calculations  given  on  printout  of 
the  data  must  be  used  to  adjust  the  means.  Computational  procedures 
and  notation  references  can  be  found  in  Roger  E.  Kirk,  Exper imenta 1 
Design  Procedures  for  the  Behavioral  Sciences,  Wadsworth  Publishing 
Company”  1 ,  Pp.  465-^72. 

Test  Data: 

This  program  was  tested  using  data  from  Roger  E.  Kirk,  Experimental 
Design  Procedures  for  the  Behavioral  Sciences,  Uadsworth  Publishing 
Company ,  1 9&S ,  Pp"!  465-A67 .  This  program  uses  double  precision  in 
all  c«il  cu  1  at  i  ons  . 
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RU.AC10 

CRAC-K  OR  AC  1 0  ANALYSIS  OF  COVARIANCE 

NOTE:  PROGRAM  EXPECTS  DATA  IN  ONE  SEQUENTIAL  FILE 
INDEXING  FOR,  SUBJECTS,  FIRST  THEN,  GROUPS  - 
WITH  TWO  POINTS  PER  LINE  DEPENDENT  VARIABLE  THEN  COVARI AT  £ 
ENTER  NAME  OF  YOUR  " i LE  FROM  DATA30  PROGRAM 
# JACOV 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
28 

ENTER  FORMAT  OF  DATA 
(2 (4X , FI  0. 4) ) 

HOW  MANY  GROUPS? 

4 

HOW  MANY  SUBJECTS/GROUPS? 

8 

ENTER  I  FOR  RAW  DATA  PRINTOUT,  ELSE  ENTER  0 

1 

ENTER  1  FOR  CRT  DISPLAY,  OR  6  FOR  LINEPRINTER 

6 

AC  10  :  STOP  0000 


3.0000 

6.0000 

3.0000 

3.0000 

1.0000 

2.0000 

2.0000 

2.0000 


4.0000 
5.0000 
4.0000 
3.0000 
2.0000 
3.0000 
4.0000 
3  .oooo 


7.0000 

3.0000 

7.0000 

6.0000 

5.0000 

6.0000 

5.0000 

6.0000 


7.0000 
8.0000 
9.0000 
8.0000 
10.0000 
10.0000 
9.0000 
1  1 .0000 


42.0000 

57.0000 

33.0000 

47.0000 

32.0000 

35.0000 

33-0000 

39-0000 


47.0000 
49.0000 
42.0000 
41 .0000 
38.0000 
43.0000 
48.0000 
45.0000 


61 .0000 
65.0000 
64.0000 
56.0000 
52.0000 
58.0000 
53.0000 
54.0000 


65.0000 

74.0000 

80.0000 

73.0000 

85.0000 

82.0000 

78.0000 

89.0000 


Y-TERMS  (OEP .  VAR.) 

(BS)  1160.000 
(Y)  924.500 
(B)  1119.000 


X-TERMS  (COVAR) 

(BS)  105202.000 
(X)  96800.000 
(B)  103997.250 


XY-TERMS 

(BS)  10840.000 
(XY)  9460.000 
(B)  10637.750 


*  AC  10  T  *00003  13  OH  CR00002  USING  00019  BLKS  R*0000 


0001 

0002 

0003 

0004 

0003 

0004 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0013 

0014 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0023 

0024 

0027 

0028 

0029 

0010 

0031 

0032 

0033 

0034 

0033 

0034 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0043 

0044 

0047 

0048 

0049 

0030 

0031 


FTN4 

PROGRAM  AC10 

DIMENSION  NFI LEX  3  > , IFHT  X  20  > 

DOUBLE  PRECISION  X  ,  Y , SX , SY , Y S , X S , GX , GY , X8 , Y 0 , GG  ,  X 2  ,  SS  ,  C  ,  0  .  2  I 
DOUBLE  PRECISION  Z J , 2N , 2NJ , B N , BNK l , BN2 . QN , X N , V 2 . X Y 
DIMENSION  I  8(  272  1  3UF '  256  > 

DOUBLE  PRECISION  SUMX ( 1 0 0 ) , S U MX2C 1 00 > 

SX*0  . 

SY*0  . 

XY"0  . 

YS*0  . 

XS-0  . 

GX-0  . 

X8-0  . 

YB-0  . 

GG-0  . 

WR! TEX  1 , 4400  > 

4400  FORMAT  X  'CRAC-K  OR  AC  1 0  ANALYSIS  OF  COVARIANCE  *  , 

*/  ,  3X , *  NO  TE i  PROGRAM  EXPECTS  DATA  IN  ONE  SEQUENTIAL  FILE*  , 

V, l IX, *  INDEXING  FOR  SUBJECTS  ,  FIRST  THEN/  GROUPS  -  "  , , 

UlXi'UITH  TWO  POINTS  PER  LINE  DEPENDENT  VARIABLE  THEN  ", 

•  ■COVARIATE.  MIX,"  MAX  100  GROUPS") 

WRI TE<  1/ 440  1  ) 

4401  FORMAT  <  "ENTER  NAME  OF  YOUR  FILE  FROM  DATA30  PROGRAM"  ) 
READ< 1,99  )NFI LE 

99  FQRHAT<  3A2 ) 

IDCBS-236 

CALL  0PENXIB,IER,NFILE,3,0,-2,IDCBS> 

IF<  IER.GE.O)  GO  TO  689 
WRITEX  1,343  )  NFILE,  IE  R 

343  FORMAT  <  3X , 3A2  »  *  FAILED  TO  OPEN  ,  IER  -  *,I5) 

STOP  345 

68V  WRITEX  l,  4402) 

4402  FORMAT  (  "ENTER  FORMAT  OF  DATA"  ) 

R  EA  0  X l , 6  )  IFMT 

6  F0RMAT<20A2) 

WRITEX  1,4403) 

4403  FORMAT  <  *  HOW  MANY  GROUPS'?  ") 

READ< 1  / *  )  K 

WRITEX  1.  4404  ) 

4404  FORMAT  X  "  HOW  MANY  SUBJECTS/GROUP?  ") 

READX 1 , *  )  N 

BN»H*K 

XN-N 

WRITEX  1,  900  1  ) 

9001  FORMATX *  ENTER  1  FOR  RAW  DATA  PRINTOUT/  ELSE  ENTER  0*) 

READX 1 , *  )  IPTO 
WRITEX  1,  1  234  ) 

1234  FORMATX  "  ENTER  1  FOR  CRT  DISPLAY/  OR  6  FOR  L  I  HE  PR  I  NTEiX  *  ) 

READX 1 .*  )  I  UN  I  T 
00230  I*i,  < 
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$032  !F< IPTO.EQ. 1 >  8R  IT  EC  I  UN  I  T ,  90  3  > 

$033  903  FORHATC //  ) 

0034  D0330  J *  1  <  N 

0033  CALL  READFC  IB ,  IER,  I SUF  ) 

0030  CALL  CODE 

0037  REAOC I 8UF , I FHT  )Y  ,  X 

0038  IF< IPTO. EQ. 1 >  HR I T  E  < I UH I T,  IFNT  )  Y,X 

0039  SX-SX+X 

0000  SUHXC  I  )«8UHXC  1  >♦  Y 

0041  SUHX2C  I  >*SUHX2C  I  >*Y*Y 

0002  3Y-SY+Y 

0003  XY*XY+X*Y 

0004  YS«YS+Y*Y 

0003  XS*XS+  X*X 

0000  GX*GX+X 

0007  330  GY-GY+Y 

0008  3109  F  QR  H AT  C /  / > 

0009  XB-X8*GX*GX/XH 

0070  Y  3«  YB+  GY  *  GY  /X  H 

0071  GC»GG+GX*GY/XN 

0072  Y-GY/XN 

0073  X-GX/XN 

0074  GX-0 

0071  GY-0 

0070  230  CONTINUE 

0077  Y2-SY*3Y/BN 

0078  X2-SX*SX/9N 

0079  SS-SY*SX/BN 

0080  8 R I  T EC  IUHIT  <600) 

0081  600  F  OR  H ATC IX///) 

0082  MRITEC IUHIT, 161)YS,Y2 

0083  161  FORHATC 1XCY-TERHSC DEP.  VAR.)  •  ,  /  C  CBS)  * , F 1 2 . 3 , 7 i 1 X , " < Y ) " , 2 X 

0084  4F12.3) 

0081  HRITEC  IUHIT, 171  )YB 

0080  171  FORHATC  C  B  )  •  ,  2X  ,  F  1  2 . 3 / // ,  1 X  C X -T E RH S(  C OV  AR  > •  ) 

0087  8RI TEC  IUHIT , 1711  )XS  ,  X2 

0088  1711  FORHATC  IXCCB3  )■  ,  1X,F12 . 3, /,  IX,  "C  X  >■  ,2X,F12  .  3) 

0089  HRITEC  IUHIT, 181)X8,XY,SS,GG 

0090  181  FORHATC*  C 3  )  ■ , 2X , F l 2 . 3 , / / *  IX , *  X Y- T ER MS '  ,  /  1 X , * < B S > *  ,  t X , F  1 2  3,/ 

0091  X1XCCXY  )  •  -  IX,  F12  .  3  , /,  IX  ,  *C  8  )  ",1X,F12.3> 

0092  WRI TEC  IUHIT  >453) 

0093  433  FORHATC//// CO  CE  LL"  ,  4  X  C  N*  ,  7X  C  S  UHX  *  ,  6X  C  S  UH  X2  *  ,  9  X  C  HE  AH  "  , 

0094  ItOXCSD"*/) 

0093  D0228  I-1,K 

0096  XBt "SUHXC  I  )/XN 

009  7  SDl-DSQRTCC  SUHX2C I  )-C  SUHXC  I  )• SUHXC  I ) >/XN)/C  XN-  1  )  ) 

0098  WRITEC  IUHIT,  229)  I  ,  N,  SUHXC  I  )  ,  SUHX2C  I  >.  XBl  ,  SD  1 

0099  229  FORHATC IX, 13, 3X, 13 , 4C 3X , FI  0.  3  ) ) 

0100  228  CONTINUE 

0101  C-YS-Y2-C XY-SS  >*C XY-SS >/< XS- X2 > 

0102  O-YS-YB-C XY-GG  )*C  X  Y -G G  > /  C  X  S- X 8  > 

0103  ZI-C-0 

0104  ZJ-D/C 8N-K-1  ) 

0103  ZH»Z  I/C  X -  1  ) 

0106  yRITEC  IUHIT, 531  ) 
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0t07 

0108 

0105 

0110 

0111 

0112 

0113 

0114 

0113 

0118 

0117 

0119 

0115 

0120 

0121 

0122 

0123 

0124 

0123 

0126 

0127 

0128 

0125 

0130 

0131 

0132 

0133 

0134 

0133 

0138 

0137 


331 

338 


700 


341 

331 


371 

381 

3811 


FORMAT!  IX, /V.  17X.  “SOURCE  TABLE") 
WRITE! I U  H I T >  334 ) 

FORMAT! IX, / ,4X , "SOURCE" . 11X, " SS" , 8X, 

1 " P<  F  )"  ) 

Xl-K-1 

ZHJ-ZH/2J 

BNK1-8N-K-1 

WRITE!IUNIT,700>C, 8N2 

FORMAT! IX. “TOT AL", 7X.F12  3.3X.F4  0> 

OFl-Ki 

DF2-8NX1 


"OF " . 8X . "HS" . 3X 


F " . 9X  . 


F-ZHJ 

CALL  FPR08C  F . OF  1 . 0F2. 23 , PF  1 ) 

WRITE! I  UN  IT. 34  1  )ZI . K1 ,2N,ZHJ, PF  1 

FORMAT!/. IX. "BET WE EH  GRPS" . F 1 2. 3. 4X.F4 .3. 3! 3X. F7 . 3)./ > 

WRITE! IUMIT.331  )D, 8Hi!l, ZJ 

FORMAT! IX, "WITHIH  G RP S  "  ,  1 X , F  1  2  .  3  ,  3 X , F4  0.4X.F7  3) 

C-<  XV- SB )/DSQRT<  <XS-X2)*!YS-Y2)  > 

0-<  GC-SS  )/DSQRT! ! X8-X2)*! YB-Y2)  > 

QN«! XY-GC  >/DSQRT<<  XS-X8  >*! YS-YB  >  > 

WRITE! IUMIT.S71  ) 

FORMAT! IX.//,  "  CORRELATION  COEFFICIENTS  ") 

WRITE!  1UN  IT, 581)0. ON 

F0RMAT<2X./. IX, "BETWEEN  GRPS * , F9 . 3 , / , 1 X , ■ WI THI H  GRPS"  ,  IX  ,  F9  3  > 

WRITE!  IUN  IT  ,  38  1 1  )C 

F0RMAT!4X, "TOTAL  ",2X,F9.3,/> 

CALL  CLOSE! 18,  IER  ) 

STOP 

END 

END* 
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AC!  1 


( RBAC-K) 


(One-way  Analysis  of  Covariance,  Repeated  Measures) 


Purpose: 


This  program  performs  a  one-way  analysis  of  covariance  for  one 
covariate  with  replication  either  by  using  matched  subjects  or 
repeated  measures. 

Mathematical  Model: 


The  model  for  this  design  is: 


Y .  .  <  , . \  =  Y .  .  -  B '  (X..  -  X . . )  =  u  +  B .  +  t.  +  E .  . 

i j ladj J  i  j  w  i  j  j  i  i j 


whe  re : 


Y..  *  readjusted  criterion  measure 
i  J 

B'  »  common  populaton  ’inear  regression  coefficient  for 
treatment  levels 

The  hypothesis  to  be  tested  is: 

Ho:  B .  =0  for  a  1  1  j 
J 

The  fixed  effect  model  (Model  l)  was  assumed  in  the  derivation  of 
the  expected  values  of  the  mean  squares. 

Layout  of  Design: 


S  represents  a 
set  of  sub j ect s 


1.  There  are  k  levels  of  treatment  B. 

2.  Subjects  are  assigned  to  a  treatment  so  that  the  variability 
within  a  treatment  is  less  than  the  variability  among  treat¬ 
ments.  Homogeneity  within  treatments  may  be  achieved  by 
using  a  subject  as  his  own  control  or  match  subjects  on  the 
basis  of  a  variable  that  correlates  with  the  dependent  variable. 
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3.  The  experiment  contains  a  source  of  variation  believed  to 
affect  the  dependent  variable  and  is  considered  irrelevant 

to  the  objectives  of  the  experiment.  A  measure  of  the  extra¬ 
neous  variation  can  be  obtained  which  does  not  include  effects 
attributable  to  the  treatment. 

4.  The  relationship  of  the  dependent  variable  and  the  covariate 
is  1  i  nea  r . 

5.  For  repeated  measures,  the  dependent  measure  for  each  subject 
is  paired  with  a  unique  covariate  measure.  The  covariate 
cannot  be  identical  for  all  measures,  e.g.,  age  of  a  subject. 

User  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  in  sequential  form,  with  the  dependent 
measure  (Y)  first,  then  the  covariate  (X) .  (For  example,  subject 
one  for  treatment  b^  and  the  covariate  is  the  first  record,  subject 

two  for  treatment  b^  and  the  covariate  is  the  second  record.  Follow 

this  procedure  for  all  subjects  in  b^  then  index  to  the  next  level 

of  B.)  A  printout  of  raw  data  shows  two  data  points  per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 

output,  6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 

data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2). 

4.  Parameters  required: 

a.  number  of  levels  of  B  (maximum  100) 

b.  number  of  subjects  per  group  (level)  (maximum  3 2767) 

c.  name  of  data  file 

d .  format  of  data  file 

e.  correlation  coefficients 

5.  Printout  gives: 

a.  raw  data  by  group  (optional) 

2  — 

b.  for  each  group:  N,  Cy,  £y  ,  Y,  SD 
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c.  ANOVA  source  table 

d.  intermediate  calculations  of  the  adjusted  scores 

e.  correlation  coefficients 


Comments : 

Analysis  of  covariance  uses  statistical  control  to  reduce  experimental 
error  and  obtain  unbiased  estimates  of  treatment  effects.  The  procedure 
involves  measuring  the  dependent  variable  and  an  additional  covariate. 
The  covariate  represents  a  source  of  variation  that  has  not  been  con¬ 
trolled  in  the  experiment  and  is  believed  to  affect  the  dependnet 
variable.  With  analysis  of  covariance,  the  dependent  measure  can  be 
adjusted  so  as  to  remove  the  effects  of  the  uncontrolled  source  of 
variation  represented  by  the  covariate. 

Before  comparisons  among  means  can  be  made,  the  means  must  be  adjusted 
for  the  covariate.  The  intermediate  calculations  given  on  the  printout 
of  the  data  must  be  used  to  adjust  the  means.  Computational  procedures 
and  notation  references  can  be  found  in  Roger  E.  Kirk,  Exper imental 
Design  Procedures  for  the  Behavorial  Sciences,  Wadsworth  Publishing 
Company";  I  9&S7  f5 p .  475-^77. 

Test  Data: 

This  program  was  tested  by  comparing  the  results  of  the  AC  11  program 
to  results  obtained  from  a  similar  PDP  8/e  Analysis  of  Covariance 
program.  The  program  uses  double  precision  in  all  calculations. 


RU.AC1 1 
AC  11  OR 

REAC-K  ONE-WAY  ANALYSIS  OF  COVARIANCE  FOR 

REPEATED  MEASURES.  DATA  INPUT  READ  SEQUENCE 
INDEX  FOR  SUBJECTS,  THEN  FOR  WITHIN  FACTOR.  ENTER  THE 
DEPENDENT  VARIABLE,  THEN  THE  COVARIATE 
ENTER  NAME  OF  THE  DATA  FILE 
•fJRBAC 

ENTER  FORMAT  OF  DATA 

(2 (2X , F8 . 4) ) 

HOW  MANY  TREATMENTS? 

4 

HOW  MANY  SUBJECTS? 

6 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
20 

ENTER  1  FOR  RAW  DATA  PRINTOUT  (1-YES) 

1 

ENTER  1  FOR  CRT  PRINTOUT,  6  FOR  LPTR 

6 

AC  11  :  STOP  0000 


202.0000 

28.0000 

145.0000 

23.0000 

188.0000 

27.0000 

201 .0000 

24.0000 

202.0000 

30.0000 

228.0000 

30.0000 

MEAN-Y 

194.333 

MEAN-X 

27.000 

165.0000 

22.0000 

201 .0000 

26.0000 

185.0000 

24.0000 

231.0000 

28.0000 

178.0000 

26.0000 

221 .0000 

25.0000 

MEAN-Y 

196.833 

MEAN-X 

25.167 

191 . 0000 

27.0000 

203.0000 

28.0000 

185.0000 

27.0000 

238.0000 

30.0000 

198.0000 

26.0000 

207.0000 

27.0000 

MEAN-Y 

203.667 

MEAN-X 

27  500 

1  3 A . 0000 

19.0000 

180.0000 

24.0000 

220.0000 

28.0000 

261.0000 

30.0000 

226.0000 

29.0000 

204.0000 

24.0000 

MEAN-Y 

204.167 

MEAN-X 

25.667 

Y-TERMS  (DEP 

.  VAR.) 

(BS) 

976280.000 

(Y) 

957601.500 

(B) 

958037.667 

(s) 

967091.500 

X-TERMS  (COVAR.) 

(BS) 

16824.000 

O') 

16642.667 

(B) 

16664.333 

(s) 

16688.500 

Y-TERMS 

(BS) 

127727.000 

(XY) 

i26242.000 

(B) 

126250.500 

(s) 

126801 .250 

CELL 

1 

2 

3 

4 


SUMX 

SUMX2 

MEAN 

SD 

1166.000 

230362.000 

194.333 

27.457 

1 1 81 .000 

235737.000 

196.833 

25.600 

1222.000 

250612.000 

203.667 

18.608 

1225.000 

259569.000 

204.167 

43.508 

SOURCE  TABLE 


SOURCE 

TREATMENT 

BLOCKS 

RESIDUAL 

TOTAL 


SS 

OF 

MS 

F 

P(F) 

1502.394 

3- 

500.798 

5.150 

.0132 

3227.275 

5. 

645.455 

6.638 

.0026 

1361 .286 
6517.333 

14. 

22. 

97.235 

CORRELATION  COEFFEC  ENTS 


TREATMENTS  .08/ 
BLOCKS  .848 
RESIDUAL  .919 
TOTAL  .807 


*  AC  1 i  T-0000  IS  ON  CR00002  USING  00022  BLKS  R*0000 


0001  FTH4 

0002  PROGRAM  AC11 

0003  REAL  K  i  >  K  IX  1 

0004  DOUBLE  PRECISION  SIA,S2A,X,Y,SX,SY,YS»XS,GX,X2,GY 

0003  DOUBLE  PRECISION  XB , YB , GG, ZK , SI , S2 , SS, Y2, C , Z J , ZI , 0 , ZI 1  ,  ZN 

0004  DOUBLE  PRECISION  GXB, XB , SD , X 1 , X3, XN 

0007  DOUBLE  PRECISION  S  l  A!  1 0  0  ) .  S2  A(  1  00  ) ,  X  1<  1  00  ) .  X3<  10  0  ) 

0008  DIMENSION  NFI  L«.<  3  )  ,  1FHT!  20  >,  I  B<  272  >,  IBUF<  254  > 

0009  yRITE<  1, 4399) 

0010  4399  FORMAT i ‘  AC  1 1  OR  *,/, 

0011  C‘  R8AC-K  ONE  -WAY  ANALYSIS  OF  COVARIANCE  FOR 

0012  $*  REPEATED  MEASURES.  DATA  INPUT  READ  SEQUENCE" ,  /  , 

0013  UOX, ‘INDEX  FOR  SUBJECTS.  THEN  FOR  WITHIN  FACTOR.  EHTER  THE"./. 

0014  LI  OX .  "DEPENDENT  VARIABLE,  THEN  THE  COVARIATE") 

0013  W RI TE!  1 ,  987  > 

0014  98  7  FORMATS "ENTER  NAME  OF  THE  DATA  FILE") 

0017  READ( 1  ,  1  4  )NFILE 

0018  14  FORMAT !  3A2) 

0019  WR^'E!  1.  4401  ) 

0020  4401  FjRMAT  !  •  EHTER  FORMAT  OF  DATA  ■  > 

0021  READ< 1 ,4  )  IFMT 

0022  6  FORMAT! 20 A2  > 

0023  WRITE<  1. 4402) 

0024  4402  FORMAT  <  •  HOW  MANY  TREATMENTS?  "> 

0023  READU,*)  K 

0024  WRITE<  1.  4403) 

0027  44 «3  FORMAT  <  ■  HOW  MANY  SUBJECTS?  *  ) 

0028  READU, *>  N 

0029  IOCBS-254 

0030  CALL  0PEN< 18. IER.NF1LE, 3. 0,-2. IDCBS) 

0  031  IF  <  IER. LT. 0)  GO  TO  999 

0032  WRI  TE<  1.134) 

0033  134  FORMAT! ‘ENTER  1  FOR  RAW  DATA  PR  INTOUT!  1  »YES  )  *  ) 

0034  READ<1,0  IPTO 

0033  WRITE!  1.912) 

0034  912  FORMAT! "ENTER  1  FOR  CRT  PRINTOUT,  4  FOR  LPTR  ‘  ) 

0037  READU, *)  IUNIT 

0038  8N-N*K 

0039  XH-N 

0040  DO  230  I  ■  l , K 

00*1  DO  330  J "  1 . N 

0042  CALL  READr! IB, IER, IBUF) 

0043  CALL  CODE 

0044  READ! IBUF , IFKT >  Y,X 

0043  IF!  IPTO. EW.  1)  WR I T t  < I  UN  I T,  IFMT >  Y,X 

0044  SX-SX+X 

004/  XI!  I  )»Xl!  I  )+Y 

0048  X3!  I  >»X3!  I  >+Y*Y 

0049  SY-SY+Y 
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0030  XY»XY*X*Y 

0031  YS«Y3+Y*Y 

0032  XS»X3+X*X 

0033  GX*GX*  X 

0034  UY-GY+Y 

0033  S 1A< J >"3 1 A< J )  +  Y 

0034  330  S2A<  J  )«S2A<  J  >*X 

0037  XB"X8*GX*GX7XH 

0038  Y8«Y8+GY*CY/XM 

0033  GC«CG+GX*CY7N 

0040  GY»GY7N 

0041  GX-CX7N 

0042  y R I T E<  IUH  IT , 23  1  )GY , GX 

0043  231  FQRHAT<  1  X  > a  HEAN-Y  a . FI  0 . 3 , 4X  ,  a  MEAN-X  VF10.3) 

0044  GX-0 

0043  GY-0 

0044  230  CONTINUE 

0047  00  190  J  *  1 ,  H 

0043  ZK-K 

0049  S 1-S1  +  81 A< J >*S 1A< J  )7ZK 

0070  S2*S2+S2A(J  )*S2A<J  )7ZK 

0071  190  S3«S3*S1A<J  >*  S  2A( J  )72K 

0072  Y  2«  S  Y*SY 7 BN 

0073  X2*SX*SX7BN 

0074  SS-SY*3X7BN 

0073  WRI TE< IUH IT , 600  ) 

0074  400  F  ORMAT < 1 X  /  77  ) 

0077  y  R  X  T  E<  I  UN  IT ,  1 4  1 )  YS  /  Y2 

0078  161  FORHAT< IX, • Y-TERM$< DEP.  VAR.)  a,7,a  <BS>  * , F  1 2  3 , 7 ,  IX ,  •( Y  )  * , 2X . 

0079  IF  12  .  3  ) 

0080  URI TE<  IUNIT  , 1 7 1 ) YB , SI 

0081  171  FORMAT  <  ■  <B)a,2X,F12.3,/,a  <S)a,2X,F12  3/77.  IX# 

0082  C"X-TERMS<  COVAR  .  )  a  ) 

0083  URITEC  IUNIT, 1711  )XS,X2 

0084  17  1  1  FORMATUX,  "<9S  )a  ,  IX/FI2  .  3,  7,  1  X,  a<  X  >a  ,  2X,F12  3) 

0  083  KRITEC  IUNIT, 181)X8,S2,XY,SS,GG 

0086  181  FORMATC  <8>a,2X,F12.3,7,"  < S >a , 2X , F 12 . 3, 7/ , aXY- TERNS a  ,7 , 

0087  Xa  <BS)a,lX,  F12  .  3, 7,  IX , aC XY >a,  IX, F12. 3,7, 1 X,  "<B >  a,lX,F12  3; 

0088  URITE<  IUNIT, 1811  )S3 

0089  1311  FORHATC  <  3  ) a  ,  2X  ,  F  1  2  .  3  > 

0  090  C-YS-Y2-C  XY-SS  )*<XY-SS  >7<XS-X2> 

0091  Z  J ■ YS+  Y2 - Y8 -S  1 

0092  X«XS*X2-X8-S2 

0093  ZI-XY+3S-GG-S3 

0094  D-ZJ-ZI*ZI7X 

0  09  3  Y-S 1-Y2  +  ZJ-<S3-SS+ZI >»<  S3-SS  +  ZI  )7l S2-X2  +  X  >-D 

0 0 ? «  ZIt  »YB-Y2+ZJ-<  GG-SS+ZI >*< GG-SS+ZI >7( XB-X2+X )-0 

0097  X=H-l 

0098  GY-Y7X 

0099  ZJ*D7<<K-1)*X-1) 

0100  ZN«ZI17<K-1> 

0101  y R I T E <  IUNIT, 703) 

0  102  703  F0RHAT<7777  , a0  CE L L a , 4 X , a Na , 7X , * S UHXa , 6X , " S UMX2 a , 6 X .• HE  AN ’ , 

0103  1  1  IX , *30* , 7 ) 


1  32 


0  104 

0103 

0106 

0107 

0108 

0104 

704 

0110 

70  9 

0111 

0112 

33  1 

*U3 

0114 

0113 

0116 

0117 

9  119 

0  119 

0120 

0121 

0122 

0123 

336 

0124 

0123 

0126 

341 

0127 

0128 

342 

0129 

0130 

C 

0131 

0132 

0133 

343 

0134 

0133 

0136 

351 

0137 

0138 

0139 

0  140 

0  141 

0142 

381 

0143 

0144 

0143 

382 

0146 

0  147 

0148 

0149 

999 

0130 

4408 

0131 

0132 

0133 

XH-H 

GXB-XB 

00  704  I-l/K 
XB-X1C  I  ) / XH 

SD-DSQRTC CX3<  I  >-CXlC  I  >*X1C  I)  >/XH>7CXH-l  )  > 

WRITEC  IUHIT, 709)  I,H,XICI>,X3<I>,XB,SD 
FORMAT <213/  IX  ,  4<  3X  ,  F  t  0 . 3  >  > 

WRI TE(  I UM  I  T <331 > 

FORHATC IX, /V, 17X, 'SOURCE  TABLE" > 

GX-CY/ZJ 

XB*CXB 

Kl-K-l 

K  1 X  1  ■<  K-  l  >*X-  I  . 

2HJ-ZH/2J 

CALL  F  PR  0  BC  2MJ  <  X 1 . K  l  X  1  ,  2TI /PF1 ) 

DF1-X 

GX1=CX 

CALL  FPR08(  GX  2  «  0  F 1 > K 1 X 1 ,  ZT2, PF2  > 

WRI TE< IUHIT ,336) 

FORHATC 1X,7 ,4X, "SOURCE*  . 11 X. 8X, "OF", 9X ,  "HS" , 9X, "F  V 
18X#  •  P(  F  >  *  /  / /  ) 

WRITEC  IUHIT /54 1 )ZI 1 ,  K  1 ,  ZH» ZH J ,  PF  1 

FORHATC IX, "TREhTMEHT  ",3X,F9.3,F7.0,6X,F7.3,3X,F7.3,3X.F74> 
WRITEC IUHIT, 542>Y,X, GY, GX,PF 2 

FORHATC IX. ‘BLOCKS  ",2X,F9.3,1X,F7.0,3X,F7.3,3X,F7  3, 

13Xi  F7.4) 

3ES I  DUAL 

K1XI«<  K-l  )*X-  1 

WRITEC IUHIT, 343)0. K1X1,ZJ 

FORHATC IX, "  RES  ID  UAL  ■  ,  2 X  ,  F9 . 3  ,  F7  .  0 , 4  X,  F 9  .  3  > 

BH2-BH-2 

WRITEC IUHIT ,551 >C, BH2 

FORHATC IX, ■ TOTAL", 8X, FI2 .3,4X,F  '  .  0  > 

X*<  S3-SS  )/DSORT< C S  1 -Y2 >*C S2-X2 > ) 

C»C  XY-SS  )/0S8RTC  <XS-X2)*< YS-Y2) > 

D-C  GG-SS  J/DS8RTC  CXB-X2  >*C  YB-Y2) > 

ZM-C  XY  +  SS-GG-S3)/DS0RTC  C  YS  +  Y2-YB-S1 >*C  XS  :  X2-X8-S2 ) ) 

WRITEC  IUHIT, 381  >D 

FORHATC IX,//,  IX,  "CORRELATIQH  COEFFEC IEHTS * , //,  ■  TREATMENTS" ,  2  X , 
1F3 . 3  ) 

WRITEC IUHIT, 3B2)X,  ZH,  C 

FORHATC"  BLOCKS" ,«X,F3. 3,7, "  RESIDUAL  •  , 2X , F3 . 3 , / , "  TOTAL 
24 X , F3. 3  > 

CALL  CLOSEC 18 , IER  ) 

STOP 

WRITEC  1 ,  4408) 

FORMAT  C  "  ERROR  OH  CALL  OPEH  STATEMENT  *  ) 

STOP 

ENO 

EHO* 


AC20 


(CRFAC-P , Q)  (Two  -way  Analysis  of  Covariance) 


Purpose : 

This  program  performs  a  two-way  analysis  of  covariance  for  one 
covariate  without  replication. 

Mathemat i ca 1  Model : 

The  model  of  this  design  is: 


Y. 

i 


jm(adj ) 


Y. .  -  8 1 

i  jm  w 


u  +  A.  + 


B. 

J 


+  A8 .  .  E 
i  J 


m(  i  j) 


where: 


Y .  .  = 
'J 

8'  =* 
w 


X .  .  = 
IJ 


unadjusted  criterion  measure 

common  population  linear  regression  coefficient  for  treatment 
1  eve  I s 

covariate  measure  for  subject  i  in  treatment  population  j 


The  hypotheses  to  be  tested  are: 


Ho :  A .  =0  for  all  i 

i 

Ho:  B.  *  0  for  a  I  1  j 
J 

Ho:  AB . .  ■  0  for  all  i j 
'  J 

The  fixed  effect  model  (Model  l)  was  assumed  in  the  derivation  of  the 
expected  values  of  the  mean  squares. 


Layout  of  Design: 


A 

A. 

l 

A3 

81 

X  Y 

B2 

X  Y 

B! 

X  Y 

B2 

X  Y 

h 

x  V 

B2 

X  Y 

S1 

S2 

S3 

-cr 

LO 

S5 

S6 

S  represents  a 
set  of  subjects 


I.  There  are  two  Factors  (A, 8)  with  p  and  q  levels  of  treatments, 
respectively.  The  experiment  consists  of  pq  treatment  combin¬ 
ations.  The  above  example  includes  three  levels  of  Factor  A, 
two  levels  of  Factor  B. 


13^ 


* 


2.  Subjects  are  randomly  assigned  to  the  pq  treatment  combin¬ 
ations,  with  each  subject  receiving  only  one  combination. 

3.  There  should  be  more  than  one  subject  per  pq  treatment 
comb i nat ion . 

4.  The  experiment  contains  a  source  of  variation  believed  to 
affect  the  dependent  variable  and  is  considered  irrelevant 
to  the  objectives  of  the  experiment.  A  measure  of  the 
extraneous  variation  can  be  obtained  which  does  not  include 
effects  attributable  to  the  treatment. 

5.  The  relationship  of  the  dependent  variable  and  the  covariate 
is  1 i nea  r . 

User  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  in  sequential  form  with  the  dependent 
variable  (V)  first,  then  the  covariate  (X) .  On  read,  indexing 
for  subjects  comes  first,  then  for  Factor  B,  and  finally  Factor 
A.  (For  example,  first  recor^d  is  subject  one  for  treatment  and 
covariate  of  ab^,  second  record  is  subject  two  for  treatment 

and  covariate  of  ab^;  continue  for  all  subjects  in  treatment  ab^  . 

Next,  enter  all  subjects  for  treatment  ab^i  rePeat  f°r  abiq-  Then 

enter  data  for  ab^i  •  .  .,  the  final  record  would  be  subject  n  for 

treatment  ab  .)  A  printout  of  the  raw  data  would  show  two  data 

pq 

points  per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 

output,  6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 

data  printout  is  desired,  0  For  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2). 

4.  Parameters  required: 

a.  number  of  levels  of  Factor  A  (see  comments) 

b.  number  of  levels  of  Factor  B  (see  comments) 

c.  number  of  subjects  per  AB  cell  (maximum  32767)  (see  comments) 

d.  name  of  the  data  file 

e .  forma  t  of  data  file 
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5.  Printout  gives: 

a.  raw  data  by  group  (optional) 

2  _ 

b.  for  each  group:  N,  Ey ,  Zy  ,  Y,  SD 

c.  ANOVA  source  table 

d.  intermediate  calculations  of  the  adjusted  scores 

e.  correlation  coefficients 


Comments : 

Analysis  of  covariance  uses  statistical  control  to  reduce  experimental 
error  and  obtain  unbiased  estimates  of  treatment  effects.  The  procedure 
involves  measuring  the  dependent  variable  and  an  additional  covariate. 
The  covariate  represents  a  source  of  variation  that  has  not  been  con¬ 
trolled  in  the  experiment  and  is  believed  to  affect  the  dependent 
variable.  With  analysis  of  the  covariance  the  dependent  measure  can 
be  adjusted  so  as  to  remove  the  effects  of  the  uncontrolled  source 
of  variation  represented  by  the  covariate. 

Before  comparisons  among  means  can  be  made,  the  means  must  be  adjusted 
for  the  covariate.  The  intermediate  calculations  given  on  the  print¬ 
out  of  the  data  must  be  used  to  adjust  the  means.  Computation  pro¬ 
cedures  and  notation  references  can  be  found  in  Roger  E.  Kirk, 
Experimental  Design  Procedures  for  the  Behavioral  Sciences.  Wadsworth 
Publishing  Company,  1 963 ,  Pp"!  479-482  . 

This  program  has  the  following  restrictions: 

1.  The  number  of  subjects  per  AB  treatment  combinations  should  be 
equal  . 

2.  There  cannot  be  more  than  400  treatment  combinations  (p',;q  ^  400)  . 
Test  Data: 

This  program  was  tested  by  comparing  the  results  of  the  AC20  program 
to  results  obtained  from  a  similar  PDP  8/e  Analysis  of  Covariance 
program  The  program  uses  double  precision  in  all  calculations. 


n6 


RU.AC20 
AC20  OR 

CRFAC-P.Q  ANALYSIS  OF  COVARIANCE  ON  TWO  FACTORS 

WITH  NO  REPEATED  MEASURES.  ON  INPUT  READ  SEQUENCE,  INDEX 
FOR  SUBJECTS  FIRST,  THEN  FACTOR  B  AND  FINALLY  FACTOR  A. 
PROGRAM  EXPECTS  2  DATA  POINTS  PER  LINE  -  DEPENDENT  VARIABLE, 
THEN  THE  COVARIATE 
ENTER  DATA  FILE  NAME 
#JCRFA 

ENTER  FORMAT  OF  DATA  FILE 
(2(2X,F8.4)) 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
20 

HOW  MANY  LEVELS  OF  A? 

2 

HOW  MANY  LEVELS  OF  B? 

3 

HOW  MANY  LEVELS  OF  SS/CELL? 

5 

ENTER  1  FOR  PRINTOUT  OF  RAW  DATA,  0  I F  NOT 
1 

ENTER  1  FOR  CRT  PRINTOUT,  OR  6  FOR  LPTR 

6 

AC20  :  STOP  0000 
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•  i 


Y 

X 

95.0000 

40.0000 

80.0000 

35.0000 

95.0000 

40.0000 

105.0000 

50.0000 

100.0000 

45.0000 

85.0000 

30.0000 

100.0000 

40.0000 

85.0000 

45.0000 

90.0000 

40.0000 

90.0000 

40.0000 

90.0000 

50.0000 

85.0000 

40.0000 

90.0000 

40.0000 

80.0000 

30.0000 

85.0000 

40.0000 

100.0000 

50.0000 

95.0000 

30.0000 

95.0000 

35.0000 

110.0000 

45.0000 

88.0000 

30.0000 

100.0000 

50.0000 

90.0000 

30.0000 

95.0000 

40.0000 

90.0000 

45.0000 

95.0000 

40.0000 

95.0000 

45.0000 

85.0000 

30.0000 

75.0000 

25.0000 

105.0000 

50.0000 

85.0000 

35.0000 

Y-TERMS 

(DEPENDENT  VARIABLE; 

(A) 

253628.9333 

(B) 

253939 

.4000 

(ABS) 

255444.0000 

(Y) 

253552 

.1333 

X-TERMS 

(COVARIABLE) 

(A) 

46828.3333 

(B) 

46822. 

5000 

(ABS) 

48325.0000 

(X) 

4680/. 

5000 

(AB) 


(AB) 


254018.8000 


46895-0000 
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XY-TERMS 

(A) 

108901 

,0000 

(B) 

109007-5000 

(AB)  108979. 

0000 

(ABS) 

110065 

.0000 

(XY) 

108941.0000 

CELL 

N 

SUMX 

SUMX2 

MEAN 

SD 

1  1 

5 

475.000 

45475.000 

95.000 

9-354 

1  2 

5 

450.000 

40650.000 

90.000 

6.124 

1  3 

5 

430.000 

37050.000 

86.000 

4.183 

2  1 

5 

488.000 

47894.000 

97.600 

8.142 

2  2 

5 

470.000 

44250.000 

94.000 

4.183 

2  3 

5 

445.000 

40125.000 

89.000 

11.402 

SOURCE  TABLE 

SOURCE 

SS 

DF  MS 

F 

P( 

A 

147-423 

1  147.423 

5.64701 

.02 

B 

292.811 

2  146.405 

5.60802 

.01 

AB 

14.412 

2  7.206 

.27603 

.76 

ERROR 

600.448 

23  26.106 

TOTAL 

1059.329 

28 

CORRELATION  COEFFICIENTS 

A 

-1 . 

B 

. 

873 

"AC20 

000  1 

0003 

0004 

0009 

0000 

0007 

0009 

0009 

0010 

0011 

0012 

0013 

0014 

0019 

0010 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0029 

0020 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0039 

0030 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0049 

0040 

0047 

0048 

0049 

0090 


T *00004  IS  OH  CR00002  USING  00027  BLKS  R-0211 
FTN4 

PROGRAM  AC20 
ItfTEG€B  P,Q,D 

DOUBLE  PRECISION  8XXC 40 0 > , X , Y , SX , S Y , ZS , YX , X S , S A , A S , SH , SNS , B A , XN 
DOUBLE  PRECISION  AB , ZZ, SH9N, SNN , AX, A Y , AZ, AS Q N, SAQN, PQN , S Z , B Y , 

18  X ,  B  Z ,  BYJPN,BXJPN»  C  ,  0  D ,  Z I  - ZZ , AYSX , BYS* , 8A8X ,  BYYC  4  00  > 

DOUBLE  PRECISION  PQN,QN,PN 

DIMENSION  IB<  272  ) ,  IBUF<  250  ),  NFILEC  3),  IFNT<20  ) 

DOUBLE  PRECISION  S U MX C 4 0 0  ) , S U MX 2<  4 00  > 

00  897  K-1,400 
8XX<  10-0  . 

897  8YY<K)-0. 

WRITEC  1, 3999) 

3999  FORMAT  <  *  AC20  OR  • , / , 

C" CRF  AC -P ,  0  ANALYSIS  OF  COVARIANCE  ON  TWO  FACTORS*,,', 

$1 3X » ‘WITH  NO  REPEATED  MEASURES.  ON  INPUT  READ  SEQUENCE,  INDEX", 
*/ 13X , " FOR  SUBJECTS  FIRST,  THEN  FACTOR  B  AND  FINALLY  FACTOR  A  ", 
1/ , 1 3X, "PROGRAM  EXPECTS  2  DATA  POINTS  PER  LINE  -  DEPENDENT  " 
l«  'VARIABLE*  ,  /  ,  13X,  ",  THEN  THE  COVARIATE",/, 

C*  ENTER  DATA  FILE  NAME") 

READC 1 ,988)  NFILE 
968  FORMAT ( 3A2  ) 

WRI  TE(  1,1436  ) 

1436  FORMAT< "ENTER  FORMAT  OF  DATA  FILE") 

READ(  1 ,433)  I FMT 
IDCBS-256 

439  FORMAT<  20 A2 ) 

CALL  OPEN< 18, IER, NFILE, 3, 0,-2, IDCBS) 

IF<  IER  .CE  O  )  GO  TO  123 
WRI TE<  1,943  )  NFILE,  IER 

943  FORMAT ( 3A2, "  FAILED  TO  OPEH  ,  IER  -  ",I5> 

STOP  943 

123  WRITEC  1 , 440  1  ) 

4401  FORMAT  <  "  HOW  MANY  LEVELS  OF  A?  "  ) 

REAO< 1 , *  )  P 
WRI  TE<  1, 4402) 

4402  FORMAT  <  "  HOW  MANY  LEVELS  OF  B?  •  ) 

READC 1 , • >  Q 

UR  I  TE<  1,4403) 

4403  FORMAT  <  "  HOW  MANY  LEVELS  OF  SS/CELL?  ") 

READ< 1 , *  )  N 

WRI TE<  l, 737  ) 

797  FORMAT< "ENTER  1  FOR  PRINTOUT  OF  RAU  DATA  ,  0  IF  NOT") 

READC 1 , * )  IPTO 
WRITEC 1,987) 

987  FORMATC "ENTER  1  FOR  CRT  PRINTOUT,  OR  6  FOR  LPTR"  ) 

READC 1  ,  *  )  I  UN  I  T 

IFC IPTO.EQ.  1)  WRITEC IUNIT,  109 > 

109  FORMATC//, 5X, "Y",10X, "X", //> 

XN-N 


0  031 

00  240  I  -  1 , P 

0032 

00  330  J-l,  0 

0033 

00  440  K  ■  1 ,  N 

0034 

COLL  READF<  18,  I ER ,  1BUF  > 

0033 

CALL  CODE 

0080 

READ< I8UF, IFNT  )  Y,  X 

0037 

IF  <  IPTO . E9 . 1  >  «RIT£<  IUMIT , IFHT >  Y,X 

0039 

8X-3X+X 

0039 

J  J-< I- l 

0040 

SUHX< J J  >«SUHX< JJ  >+  Y 

0041 

SUHX2<  J  J  >-SUMX2<  JJ  >  +  Y«Y 

0042 

8Y-SY+Y 

0043 

ZS»ZS+X* Y 

0044 

YS«YS*Y*Y 

0043 

X8-XS+X*X 

0044 

SA*SA+X 

0047 

AS-AS+Y 

0049 

8H-8H+X 

0049 

SNS-SNS+Y 

0070 

BXX( J  >«8XX( J  >  +  X 

0071 

440 

B YY <  J  )-BYY<  J  )  +  Y 

0072 

IF  (IPTO.EQ.l)  URI TE<  IUN  IT  ,  33  > 

0073 

33 

FORHAT (.  /  /  > 

0074 

BA"BA+3HS  •SHS/'XH 

0073 

AB-AB+9N*SN7XN 

0074 

ZZ"ZZ+3HS*SM/XH 

0077 

3N8H-8HS/XH 

0078 

8HH-SH/XH 

0079 

SN-0 

0080 

330 

SNS  *0 

0091 

QH-9*H 

0092 

AX-AX+3A*SA/QN 

0093 

AY-AY+A8*A370H 

0084 

AZ-AZ>3A*AS/QH 

0093 

A8QH-AS/QM 

0094 

3AQN-8A/QN 

0097 

SA-0 

0088 

240 

A3-0 

0099 

PQH-P*Q*M 

0090 

3Z-SY*3X/PQN 

0091 

3Y-3Y*3Y^PQH 

0092 

3X-SX*3X/'PQH 

0093 

DO  620  J-1,0 

0094 

PH-P*H 

0093 

BY«BY  +  BYY<  J  >*BYY(J  VPN 

0094 

BX«BX+BXX< J  ) * B X X <  J  VPN 

0097 

9Z"BZ  +  BXX<  J  )*BYY( J VPN 

0099 

BYJPN-BYY<  J  VPN 

0099 

BXJPH-BXX<  J  VPN 

0100 

420 

CONTINUE 

0101 

WRI  T E< IUNIT>i71>AY,BY,BA»YS,SY 

0102 

171 

FQRHAK/V,  IX,  "Y-TERNS  (DEPENDENT  VARIABLE)"/ 

0103 

X/,*  (A)  “  »  FI  3 . 4  »  3X  ,  ■  (  B  )  *  ,  F  13 . 4 , 5X  ,  "  <AB)',F13 

0104 

X/,"  ( RBS ) * , F! 3 . 4 , 3X , "  <Y)",F13 .4,/) 

141 


>103 

0104  177 

0107 
0109 
0109 

0110  183 

0111 
0112 
0113 

0114  701 

0113 

out 

0117 

0119 

0119 

0120 

0121  704 

0122  703 

0123 

0124 

0123 

0 12t 

0127 

0129 

0129 

0130 

0131 

0132 

0133 

0134 

0133 

0 13t 

0137 

0139 

0139 

0140 

0141 

0142 

0143 

0144 

0143 

0144 

0147 

0149 

0149 

0130 

0131 

0132 

0133 

0134 

0133 

0134 

0137 


UR l  TEC IUNIT,177)AX/8X/AB;XS»SX 
F0RHATC1X**X-TERH9  <  COVMRI ABLE ) *  < 

X/,'  <  A  )  '  #  FI  3 . 4  » 5X  <  *  (  8  )  '  ,  F  1 3  .  4 , 5X  ,  ■  CAB>*,F13  4, 

XA*  C  ABS ) * »  Ft  3 . 4 i 3X  <  *  <  X  >  ■ .  F  1 3  .  4  ,  /  ) 

URITEC IUH IT ,183 >AZ, 82,22, ZS.SZ 
FORHATCIX/'XY-TERMS', 

X/,*  (  A  >  ' »  FI  3 . 4 . 5X  ,  '  <  8  >■,  F13  .4 , 4X  ,  ■  <A8>**F13  4, 

X/,'  (ABS >', F13 .4 ,3X, ■  < X Y ) * , F 1 3 . 4 , / > 

URI T£< IUH I T , 70 1 ) 

FORHATC//// ,  *0  CELL' ,4X, "H* - 7X - 'SUMX' , 6X,  "SUHX2' ,9X,  "HE AH* , 
110X, *30"  , /> 

00  704  I-1,P 
00  704  J-l*  0 
j j*< i-i )*q+ j 
X8 1  ■  3U  MX  (  J  j  >/XH 

30t“08  8RT<(  SUHX2CJJ  >-C  SUHXC  J  J  >*  3U  M  X<  J  J  )  >  /  XN  )/<  XH  -  1  .  )) 

URI  TEC  IUH  IT  ,  7  03 )  I  ,  J  »  H ,  SUHXC  J  J  ) ,  SUMX2C  J  J  )  ,  X  B 1  ,  SD  1 
F0RHATC1X/2I2*  3X> I3<4<3X<F10  .  3) ) 

3A«<  AZ-SZ  VOSQRTCC  AY-SY  >*<  AX-SX  )  > 

A3«<  B2-3  2 >/DS8RT<C  BY-8Y  >*<  BX-SX  > ) 

X"C  23-32  )/-038RT<  (  YS-3Y  >*<XS-SX)  > 

3H«<22*3  2“A2-92)X0S8RT<  (  8A  "-S  Y-A  Y- B  Y  )  *<  AB+SX- AX-BX  >> 
3M8-<23-ZZ)/0S8RT<  <  YS-BA  >*CXS-AB)  > 

Y*C  EZ-AZ >/D38RTC  < E Y -A Y ) * C EX- AX >  > 

C-8Y 

OO-SX 

Z1-3Z 

3Y-Y3-BA 

3X-X9-AB 

3Z-Z3-ZZ 

BA-BA+C-AY-BY 

AB«AB*00- AX-BX 

ZZ-ZZ+ZI-AZ-BZ 

AY-AY-C 

AX-AX-DO 

AZ-AZ-ZI 

BY-BY-C 

8X-8X-00 

BZ-BZ-ZI 

Y3-Y3-C 

XS-X3-D0 

Z8-Z3-ZI 

C-8Y-8Z*3Z/3X 

AX«<  AY  +  3Y  >-CAZ*3Z>*CAZ*SZ>X(  AX  +  SX  >-C 

BX-C BY  +  SY >-CBZ+SZ>a<BZ+SZ>A  BX+SX >-C 

AB«< BA  +  3Y >-CZZ+SZ>*CZZ+SZ>7<  A8  +  SX  >-C 

XS»YS-ZS*ZS/X3 

j«H*P*8-2 

0«P*8*<H-1 )-l 

P-P-l 

8-Q-i 

I  -p-a 

AY-AX/P 
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0138 

3V-BX/0 

MS* 

BA-ABX  I 

0140 

3X-C/D 

»141 

WRITE! IUN IT ,345) 

0142 

343 

FORMAT!/,  "  SOURCE  TABLE", /  > 

0143 

WRI TE<  IUM IT , 350  ) 

0144 

330 

FORMAT!  IX, "SOURCE* , 4X, " SS"  ,  1  OX,  "OF",  12X, "MS  "  , 

0143 

C*F<  F  )*  > 

0144 

AYSX»AY/SX 

0147 

DFl-P 

0148 

0F2*0 

0149 

F-AYSX 

0170 

CALL  FPROB< F, DF1 ,0F2, 2, PF1  ) 

0171 

WRITE<  IUM  IT, 333) AX, P, AY, AYSX, PF 1 

0172 

333 

FORHAT  (.  /  /  ,  ■  A*,3X,F13.3,3X»I3,5X,F13.3,3X,F11 

0173 

BY3X*8Y/SX 

0174 

DF1-0 

0173 

F-8Y3X 

0174 

CALL  FPROB!  F,  0F1  ,0F2,  Z,  *F2  > 

0177 

WRITE<  IUNIT  ,334)BX,0,BY,BYSX,PF2 

0178 

334 

FORHAT! "  8*,3X,F13.3,3X,  13 , 5  X  ,  F  1 3 . 3,  3X  ,  F 1  1  3, 

017* 

8ASX-B.VSX 

0180 

F-8ASX 

0181 

TI-I 

0182 

CALL  FPROB( F, T I , 0F2, ZF3, PF3> 

0183 

WRITE<  IUHIT,340)AB, I,BA,BASX,PF3 

0184 

34  0 

FORHAT! "  AB",4X,F13.3,5X,I3,5X,F13.3,3X,F11.5 

0U5 

WRITE! IUNIT, 341)C,0,SX 

0184 

341 

FORMAT! 1 X ," ERROR  ",F13.3,5X,I3,3X,Fl3.3,/> 

0187 

WRITE!  IUNIT, 565)XS, J 

0188 

345 

FORHAT  !  1  X  ,  *  TOTAL  *,F13.3,3X,l3#<'//> 

0189 

WRITE!  IUNIT, 911) 

0190 

91 1 

FORMAT!  IX,  ‘CORRELATION  COEFFICIENTS",,'  > 

01*1 

WRITE! IUNIT, 812)3A, A3 

01*2 

912 

F0RMAT<1X,"A  " , F 1 1  . 3 , / ,  1 X ,  " B  *,F11.3) 

0193 

WRITE! IUNIT, 820)SN,SNS 

01*4 

820 

FORMAT! IX, *AB  " , F  1 1  . 3 , /,  IX ,  "ERROR" , F 1  1  3  ) 

01*3 

WRITE!  IUNIT, 821  )X 

0194 

821 

FORMAT! IX, "TOTAL", F  11  .  3  > 

01*7 

CALL  CLOSE!  IB  ) 

0198 

STOP 

01*9 

END 

0200 

END* 
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1  2X  ,  "F",  1  IX, 


.  3,  3X, F10 .5 > 


3X, F  10  .  3  > 


,  3X, F10. 5  > 


-jm'.T.  »*.£&iMSap 


AC218 


(SPFAC-P  .  Q.)  (Two-way  Split  Plot  Analysis  of  Covariance, 
One  Repeated  Measure) 


Purpose : 


This  program  performs  a  two-way  split-plot  analysis  of  covariance 
for  one  covariate. 

Mathemat i cal  Model : 

The  model  for  this  design  is; 

Y  .  .  /  , .  \ =  Y .  .  -  B',  (X.  .  -  X.  .  .)  -  B1  (X.  .  -  X.  -  u  + 

ijm(adj)  ijm  b  ij.  w  ijm 

i  j  ij  m  (  i  )  j  m  (,  i )  i j  m 


where : 


B  1 

w 


X.  . 
U 


=  unadjusted  criterion  measure 
-  between  subject  variation 
=  within  subject  variation 
=  covariate  measure  for  subject 


in  the  treatment  population  j 


The  hypotheses  to  be  tested  are; 
Ho :  A .  =  0  for  a  1 1  i 

i 

Ho;  B .  =0  for  al 1  j 
J 

Ho :  AB .  .  =0  for  a  1  1  i j 
i  J 

L ayou t  of  Des i gn ; 


CD 

BZ 

B3 

!  X 

Y  X 

Y  X 

A! 

S1 

S1 

S1 

A2 

S2 

S2 

S  2 

There  are  two  Factors  (A  and  B)  with  p,q  levels  of  treatments, 
respectively.  Factor  A  is  designated  as  the  between  block  or 
nonrepeated  measure.  Factor  B  is  the  within  block  or  repeated 
measure.  The  above  example  includes  two  levels  of  Factor  A, 
three  levels  of  Factor  B. 
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2.  Subjects  from  a  common  population  are  randomly  assigned  to 
the  levels  of  factor  A.  After  this,  levels  of  treatment  B 
are  assigned  randomly  to  the  subjects  except  when  the  nature 
of  the  repeated  measure  precludes  randomization  of  the  presen¬ 
tation  order. 

3.  The  experiment  contains  a  source  of  variation  believed  to 
affect  the  dependent  variable  and  is  considered  irrelevant 

to  the  objectives  of  the  experiment.  A  measure  of  the  extra¬ 
neous  variation  can  be  obtained  which  does  not  include  effects 
attiibutable  to  the  treatment. 

4.  The  relationship  of  the  dependent  variable  and  the  covariate 
is  1  i  sea  r  , 

5.  For  repeated  measures,  the  dependent  measure  for  each  subject 
is  paired  with  a  unique  covariate  measure.  The  covariate 
cannot  be  identical  for  all  measures,  e.g.,  age  of  the 

sub j  ect . 


User  Considerations  and  Procedures: 

1.  A  data  file  must  be  created  sequentially  with  two  variables  per 
record  -  the  dependent  variable  (V)  first,  then  the  covariate  (X) . 
On  read  input,  vary  the  subject  fastest,  then  B,  and  finally  A. 
(For  example,  record  one  contains  subject  one  for  treatment  and 
covariate  of  ab^,  record  two  is  subject  two,  a b ^  ^  ;  continue  for 

ail  subjects  in  treatment  ab^.  Next,  enter  all  subjects  for 

treatment  ab^;  repeat  for  ab^.  Then  enter  data  for  ab^j  .  .  .; 

the  final  record  would  be  subject  ab  .)  A  printout  of  raw  data 

P'3 

would  show  two  data  points  per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard- 

copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 

output,  6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 

data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (.42). 

4.  Parameters  required: 

a.  number  of  levels  of  Factor  A  (see  comments) 

b.  number  of  levels  of  Factor  B  (see  comments) 
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c.  number  of  subjects  per  level  of  Factor  A  (maximum  100) 

d .  name  of  data  file 

e.  format  of  data  file 
5.  Printout  give*: 

a.  raw  data  by  group  (optional) 

2  — 

b.  for  each  group:  N,  Zy,  Zy  ,  Y,  SD 

c.  ANOVA  source  table 

d.  intermediate  calculations  of  the  adjusted  scores 

e.  correlation  coefficients 


Comments : 

Analysis  of  covariance  uses  statistical  control  to  reduce  experimental 
error  and  obtain  unbiased  estimates  of  treatment  effects.  The  procedure 
involves  measuring  the  dependent  variable  and  an  additional  covariate. 
The  covariate  represents  a  source  of  variation  that  has  not  been  con¬ 
trolled  in  the  experiment  and  is  believed  to  affect  the  deoendent 
variable.  With  analysis  of  covariance  the  dependent  measure  can  be 
adjusted  so  as  to  remove  the  effects  cf  the  uncontrolled  source  of 
variation  represented  by  the  covariate. 

Before  companions  among  means  can  be  made,  the  means  must  be  adjusted 
for  the  covariate.  The  intermediate  calculations  given  on  the  print¬ 
out  of  the  data  must  be  used  to  adjust  the  means.  Computational 
procedures  and  notation  references  can  be  found  in  Roger  E.  Kirk, 

,  Wadsworth 

This  program  has  the  following  restrictions: 

■ •  The  number  of  subjects  for  each  level  of  A  should  be  equal. 

2.  There  cannot  be  more  than  1,000  treatment  combinations  (p:Vq  ^  1000). 
Test  Data 

This  program  was  tested  by  comparing  the  results  of  the  AC218  program 
to  results  obtained  from  a  similar  PDP  8/e  Analysis  of  Covariance 
program.  The  program  uses  double  precision  in  all  calculations. 


Experimental  Design  Procedures  for  the  Behaviora' 
Publishing  Company,  1 968 ,  Pp"!  A82-AS5  . 
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RU.AC2IB 
AC21B  OR 

SPFAC-P ,Q.  ANALYSIS  OF  COVARIANCE  TWO  FACTORS  MIXED 

DESIGN:  REPEATED  MEASURES  ON  FACTOR  B.  ON  INPUT  INDEX 
FOR  SUBJECTS  FIRST,  THEN  FOR  WITHIN  FACTOR  B,  THEN 
BETWEEN  FACTOR  A.  ENTER  TWO  POINTS  PER  LINE  -  DEPENDENT 
VARIABLE  AND  THEN  THE  COVARIATE 
ENTER  DATA  FILE  NAME 
# JSPFA 

ENTER  DATA  FORMAT 
(2 (2X ,F8. 4) ) 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
20 

ENTER  I  FOR  CRT  DISPLAY,  6  FOR  PRINTER 

6 

ENTER  1  FOR  RAW  DATA  PRINTOUT,  ELSE  ENTER  0 
1 

HOW  MANY  LEVELS  OF  A? 

3 

HOW  MANY  LEVELS  OF  B? 

2 

SS/LEVEL  OF  A? 

3 

AC21B  :  STOP  0000 
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y  x 


8.0000 

1  1 .0000 
16.0000 

3.0000 

5.0000 

1 1.0000 

14.0000 

18.0000 

22.0000 

4.0000 

9.0000 

14.0000 

6.0000 

12.0000 

9.0000 

2.0000 

8.0000 

10.0000 

8.0000 

14.0000 

10.0000 

1.0000 

9.0000 

9.0000 

10.0000 

14.0000 

15.0000 

7.0000 

8.0000 

9.0000 

10.0000 

18.0000 

22.0000 

4.0000 

10.0000 

'2.0000 

Y-TERMS  (DEPENDENT  VAR 

(A)  3220.5000 

(ABS)  3495 . 0000 

X-TERMS  (COVARIABLE) 

(A)  1022.8333 

(ABS)  1233.0000 


I  ABLE) 

(B)  3188.5556 

(Y)  3120.5000 


(B)  H 17.0000 

(X)  1012.5000 


(AB)  3305.0000 

(AS)  3397.5000 


(AB)  1034.3333 

(AS)  1207.5000 


XY-TERMS 

(A)  1807.5000 

(ABS)  2004.0000 


(B)  1795.0000 

(XY)  1777.5000 


(AB)  1835.6667 

(AS)  1964.0000 
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CELL 

N 

SUMX 

SUMX2 

MEAN 

SD 

1 

1 

3 

35.000 

441.000 

1 1.667 

4.041 

1 

2 

3 

54.000 

1004.000 

18.000 

4.000 

2 

1 

3 

27.000 

261.000 

9.000 

3 . 000 

2 

2 

3 

32.000 

360.000 

1C. 667 

3.055 

3 

1 

3 

39.000 

521.000 

13.000 

2.646 

3 

2 

3 

50.000 

908.000 

16.667 

6.110 

SOURCE  TABLE 

SOURCE 

SS 

OF 

MS 

F 

P(F) 

A 

54.259 

2.000 

27.129 

3.057 

.136 

ERROR 

44.370 

5.000 

8.874 

B 

31.547 

1  .000 

31.547 

52.613 

.001 

AB 

2.339 

2.000 

1.170 

1  .951 

.236 

ERROR 

2.998 

5.000 

.600 

TOTAL 

141.837 

15. 

CORRELATION  COEFFICIENTS 
A  .933 
ERROR  .866 
B  1.000 
AB  .994 

ERROR  .877 

TOTAL  .788 
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■AC21B  T-00004  13  ON  CR00002  USING  00030  BLKS  R-0238 


0001 
0002 
0003 
0004 
0003 
0006 
0007 
0008 
0009 
0010 
001  1 
0012 
0013 
0014 
0013 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0033 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0043 
0046 
0047 
0048 


FTN4 

PROGRAM  AC218 
INTEGER  P  ,  Q ,  D 

DOUBLE  PRECISION  BXX<  100  >,  BYY<  l  00  > ,  EXX<  100  > ,  EYY<  1  00  > 

DIMENSION  I8<  272  >,  IBUF<  2  36  >,  NFILE<  3),  IFMTC20  > 

DOUBLE  PRECISION  SUNX<  1  000  >, SUMX2<  1000  > 

DOUBLE  PRECISION  X , Y , SX < SY , 2 S , Y S , XS, SA , AS , SN , 3SN , BA , AB , ZZ , AX, 
CAY, 

1AZ. ASQN, 8A8N, EX, EY. E2,S2,BY, BZ.3X, BXPN, BYPN, C,  DO, Z1 , SK,D,AYBZ, 
1BYSX , B ASX i PQN , PN , XN , QZ,  f  N 
DO  1054  1*1,100 
BXX< I  )-0  . 

B YY<  I)-0  . 

EXX< I  )-0  . 

1034  E YY< I  ) "0  . 

URI  TE(  1, 3999) 

3999  FORMAT  <  * AC2 IB  OR 

C'SPFAC-P.Q  ANALYSIS  OF  COVARIANCE  TWO  FACTORS  MIXED*,  / 

I, 12X, "DESIGN  :  REPEATED  MEASURES  ON  FACTOR  B.  ON  INPUT  INDEX*. 

, 1 2X, "FOR  SUBJECTS  FIRST,  THEN  FOR  WITHIN  FACTOR  B  ,  THEN  *,/, 
XI 2X , "BETWEEN  FACTOR  A.  ENTER  TWO  POINTS  PER  LINE  -  DEPENDENT*, 
X/ , 12X, 'VARIABLE  AND  THEN  THE  CO VAR  IATE * , / , 

C*  ENTER  DATA  FILE  NAME  *  ) 

READ< 1,87)  NFILE 
87  F0RMAT<3A2) 

WRI  TE<  1,99) 

99  FORMAT<  *  ENTER  OATA  FORMAT  *) 

READ<1,123)  I FMT 
123  FORMAT <  20A2  ) 

IDC8S-236 

CALL  OPEN<IB, IER, NFILE, 3,0,-2,IDCBS) 

IF  < IER. GE. 0)  GO  TO  346 
WRI TE<  1. 430  >  NFILE,  IER 

430  FORMAT  <  3A2,  *  FAILED  TO  OPEN,  1 ZR  *  *,I3) 

STOP  430 

346  WRI  TE(  1,209  ) 

209  FORMAT<  *  ENTER  1  FOR  CRT  DISPLAY,  6  FOR  PRINTER") 

READ!!,*)  I  UN  I  T 
WRI TE<  1, 219  ) 

219  FORMAT<  *  ENTER  1  FOR  RAW  DATA  PRINTOUT,  ELSE  ENTER  0") 

READU,*)  I PTO 
WRI  TE<  1,  4401  ) 

4401  FORMAT  <  *  HOW  MANY  LEVELS  OF  A?  ■> 

READ< 1 , *  )  P 

WRITE!  1, 4402) 

4402  FORMAT  !  *HOW  MANY  LEVELS  OF  B?  *> 

READ! 1 , *  >  Q 

WRITE!  1,  4403) 
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0049 

4403 

FORMAT  <  ■  3S/LEVEL  OF  A?  •> 

0050 

READU/O  N 

0051 

XH-H 

0052 

PQN-P*Q*M 

0053 

QN>Q*H 

0054 

00  250  1*1, P 

0055 

00  330  J  *  1 , 8 

0056 

IF(IPTO.EO.l)  BR ITE( I  UN  I T, 923 ) 

0057 

923 

F0RMAT< / ) 

0059 

00  440  K  ■  1 ,  N 

0059 

CALL  REA0F< 18, IER, IBUF) 

00«0 

CALL  COOE 

0001 

READ< IBUF, IFHT >  Y,X 

0042 

IF( IPTO.EQ. 1>  yRITE< IUHIT, IFHT)  Y,X 

0003 

SX-SX+X 

0004 

I l-< 1-1 >*Q+J 

0005 

SUMXC I 1 >-SUHX<  II  >+y 

0004 

SUHX2<  II  )-SUMX2<  II  >*Y«Y 

00*7 

SY-SY+Y 

00*9 

2S-Z3*X*Y 

00*9 

YS»YS+Y**Y 

0070 

XS-XS+X*X 

0071 

SA»SA+X 

0072 

A8-A3+Y 

0073 

3N-8N+X 

0074 

SSN-SSN+Y 

0075 

BXX(  J  )-BXX(  J  >  +  X 

007* 

0 YY < J  )-BYY<  J  )  + Y 

0077 

EXX<  K)-£XX<  K)*X 

0078 

440 

EYY<  K)»EYY<  K)*Y 

0079 

9A-BAtS3H*S8H7XN 

0080 

AB-Ae^3N*8«7XH 

0081 

ZZ*ZZ+S8H«SN/XN 

0082 

SN3N-SSN/'XN 

0083 

SNN-SN7XN 

0084 

SM-0 

0085 

330 

3SH-0 

008* 

AX-AX+SA’SA/ON 

0087 

AY-AY+AS*AS78N 

0088 

AZ«AZ+3A*AS78H 

0089 

ASQN-AS/QH 

0090 

SAQH-3A7QN 

0091 

QZ*Q 

0092 

PH-P*H 

0093 

00  720  K  ■  1 ,  N 

0094 

EX*EX+£XX<K )*EXX<  K )/9Z 

0095 

EY«EY+£YY<K >«<EYY<K  >/QZ 

009* 

EZ-EZ+EXXCK )*EYY<K  J/QZ 

0097 

cXX<  K)«0 

0098 

720 

EYY<  K)-0 

0099 

9A«0 

0100 

250 

AS-0 

0101 

SZ*S Y^SX/PQN 

0102 

8Y«SY*SY/P9H 

0103 

3X*SX*3X/PQH 

0104 

DO  620  J-l.  Q 
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'  / 


* 


V 


111  T* 


l 

| 

f 

i 

[ 

k 


\ 


i 

r 

V. 

f 


0103 

BY-BY+BYYCJ  >*BYYCJ  )/PN 

0106 

8  X-B  BXX <  J  )*BXX<  J  VPN 

0107 

BZ-BZ+BXXC J  )*8YYC J )/PN 

0108 

8YPN-8YYC J)/PN 

0109 

BXPN-8XXC  4 ) /PH 

0110 

620 

CONTINUE 

0111 

HR! TE< IUNIT, 170> 

0112 

170 

FORMATC/, IX, '  Y-TERHS  <  DEPENDENT  VARIABLE)",/) 

0113 

WRI TE<  IUNIT,171)AY,BY,BA 

0114 

171 

FORM ATC 1 X , "  CA)*,F9.4,3X»*  C  B  )  ■  ,  F9  .  <  ,  4X  ,  ■  <AB)",F9 

.  4  ) 

0113 

URI  TEC  IUN  IT , l 73  )YS , SY , E Y 

0116 

173 

FORNAT< 1X,*<ABS>", F9. 4,  3X,  *  <  Y  > " , F9 . 4 , 4X , "  ( AS > " , F9 

.  4) 

0117 

MRI TE< IUN IT  « t  77  > 

0118 

177 

F ORHATC IX,/,*  X-TERHS  < C OV AR I  ABLE > " , / ) 

0119 

URITEC  IUN  IT ,190)AX,BX,AB 

0120 

180 

F0RHATC1X,"  C  A  )  *  ,  F9 . 4,  3X,  a  <  B  ) " , F9 . 4 , 3X , "  <AB)",F9 

4  ) 

0121 

URITEC IUN IT , 1 8 1 >XS , SX , EX 

0122 

181 

FORMATC IX, *CABS)*, F9. 4, 3X, *  < X >■ , F9 . 4 , 3X , "  <AS>",F9 

4  ) 

0123 

URITEC IUNIT, 185) 

0124 

183 

FORMAT  C 1 X , *  X Y-TERHS* , / > 

0123 

URITEC  IUHIT, 186)AZ, B2,ZZ 

0126 

186 

FORMATC  1  X  ,  *  CA)*,F9.4,5X,  *  C  B  >  *  ,  F9 . 4 , 5X  ,  *  (AB)*,F9. 

4  > 

0127 

URITEC IUNIT, 190)ZS , SZ,EZ 

0128 

190 

FORMATC IX, *<AB8)*, F9. 4, 5X, *  C XY > * , F9 . 4 , 3X , *  <AS)",F9. 

4  ) 

0129 

URITEC IUNIT,  1270  > 

0130 

1270 

FORMATC////, *0  CELL" ,4X,  *N* , 7X, *SUHX" , 6X, " SUMX2" ,9X, 

"MEAN*  , 

0131 

110X, *S0",/> 

0132 

00  700  I - 1 , P 

0133 

00  700  J  ■  1 ,  Q 

0134 

i  i-c  i-i >*a+j 

0133 

XB1-3UMXC II >/XN 

0136 

S01-08QRTCC  SUMX2C  I  I  )- C  S UMX C  I  I  >*SU M XC  1 1  >  >/ XN  ) /C  XN-  1  .  ) ) 

0137 

URITEC IUNIT, 936)  I  ,  J  ,  N,  SUMXC  I  I  > ,  SUHX2C  I  I  >  ,  XB  1 ,  SO  1 

0138 

936 

FORMATC IX, 2 13, 2X , I3,4C3X,F10 . 3) ) 

0139 

700 

CONTINUE 

0140 

SA-C  AZ-SZ  >/DS8RTCC  AY-SY  )*C  AX-SX  >  > 

0141 

AS-C  BZ-SZ  >/OSQRTCC  BY-SY )*C  BX-SX  >) 

0142 

X»C  ZS-SZ  )/08QRTC  C YS-SY )*C XS-SX ) > 

0143 

SN-C  Z2  +  SZ-AZ-BZ)/DSQRTC  <  BA*SY-AY-BY)*C  AB+SX-AX-BX  >) 

0144 

SSN-CZS+AZ-ZZ-EZ  )/0S0RT<  C YS+AY-BA-EY  )*( XS+AX-AB-EX) > 

0143 

Y-C  EZ-AZ  )/OSQRTC  C E Y - A Y ) •< E X- A X ) ) 

0146 

C-8Y 

0147 

DD-3X 

0148 

ZI-3Z 

0149 

8Y-YS+AY-BA-EY 

0130 

SX-XS+AX-AB-EX 

0131 

8Z-Z8+AZ-ZZ-EZ 

0132 

EY-EY-AY 

0133 

EX-EX-AX 

0134 

EZ-EZ-AZ 

0133 

ZK»EY-EZ*EZ/EX 

0136 

BA-BA+C-AY-BY 

0137 

AB-A8+0D-AX-BX 

0138 

ZZ-ZZ+ZI-AZ-BZ 

\ 
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d 1 S  9  AY-AY-C 

01((  AX-AX-00 

0141  A2-AZ-ZI 

0142  BY-BY-C 

0143  BX-BX-DO 

0144  BZ-BZ-ZI 

0143  Y8-YS-C 

0144  X8-X8-00 

0147  Z8-Z8-ZI 

0148  C-SY-SZ*SZ/SX 

0148  AX-< AY ♦£  Y  )-< AZ +EZ ) •< A Z* E Z > /! AX+EX  )-ZK 

0170  BX-<  BY+S Y  >-<BZ  +  SZ)*!8Z*SZ)/!  BX+3X  >-C 

0171  A2-2K 

0172  K -P  *<  H- 1  )-l 

0173  BZ-AZ/K 

0174  AB-<  BA  +  SY  >- !  ZZ  +  S  Z  )  *  !  Z  2*  S  Z  )/!  AB+SX  >-C 

0173  XS-YS-ZS*ZS/XS 

0174  J -K*P*0-3 

0177  D-P*!8-l  )•<  M-l  >-l 

0178  P-P-l 

0178  a-a-i 

0180  i-p*a 

0181  AY-AX/P 

0182  BY-BX/a 

0183  BA-AB/I 

0184  8X-C/D 

0183  WRITE! IUHIT .343) 

0186  545  FORMAT < 1 2X, /// > *  SOURCE  TABLE*,//) 

0187  WRITE!  IUHIT, 530) 

0188  330  FORMAT  <  *  SOURCE* ,  3X  .  "  SS  * ,13X, "DF* , 7X, "MS", 18X, "F  "  ,1  IX,  "P<  F  >  *  ) 

0188  AYBZ-AY/BZ 

0180  TP-P 

0181  TK-K 

0182  F-AYBZ 

0183  CALL  FPR08< F, TP, TK, Z1 ,PF1  > 

0184  WRITE! IUHIT ,333)AX, P, AY, AYBZ, PFi 

0183  333  FORMAT  < 1 X , "A  ",3X,F7.3,3X,F7.3,5X,F7.3,8X,F7.3,8X,F7.3> 

0184  WRITE! IUHIT, 371 >AZ,K, BZ 

0187  371  FORMAT! IX, "ERROR  * , 3X , F 7 . 3 , 5 X , F7 . 3 , 3 X , F 7 . 3 > 

0188  BY3X-BY/SX 

0188  F-BYSX 

0200  DFl-a 

0201  DF2-0 

0202  CALL  FPROB!  F,  0F1  ,0F2,  Z2,  PF2) 

0203  WRITE! IUHIT ,336 )8X, Q, BY, BYSX, PF2 

0204  336  F0RMAT!1X,"B  "»3X,F7.3,5X,F7. 3,3X,F7  3, 8  X ,  F7  3, 9X, F7.3) 

0203  BASX-BA/3X 

0206  F-BASX 

0207  OFi-I 

0208  CALL  FPRQ  B!  F ,  DF1 , 0F2 »  Z3  ,  PF3  > 

0208  WRITE! IUHIT, 360) AB , I, BA, 8 ASX, PF 3 

0210  560  FORMAT!  IX,  "AB  ■  ,  3X  ,F7 . 3 , 3X  ,F7  3 , 5X,  F7  .  ", ,  8X,  F7  .  3,  8X  ,  F7  .  3  ) 

0211  WRITE!  IUHIT. 361)C,0,SX 

0212  361  FORMAT! IX, "ERROR  " , 3X , F 7 . 3 , 3 X , F 7  3 . 3X , F 7  3 , / ) 

0213  WRITE! IUHIT, 363)XS, J 


0214 

0215 

0216 

0217 

0218 

0219 

0220 

022! 

0222 

0223 

0224 

0225 

0226 


565  FORMAT  < 1 X , • TO  T  AL  • , 3X , F7 . 3 , 8X , I  3 , / > 

URI TE< IUHIT ,810)3A, Y 

810  FORHAT< IX, "CORRELATION  COEFF I  Cl EHTS" , / ,  *  A  - , 4X, F5 . 3, / ,  *  ERR 
XOR“ , 4X , F5 . 3  > 

URITE< IUHIT, 820)  AS, SM.8SH 

820  FORNAT< 1 X, *B  ■ , 4X, F5 . 3, /, ■  AB  ■ , 4X , F5 . 3 , / , ■  ERROR  "  - 4X , 

CF5 . 3  ,  / > 

URI TE< IUHIT, 999>X 
999  FORMAT < ■  TO TAL * , 4X , F5 . 3 > 

CALL  CLOSE<  18  ) 

8  TOP 

ENO 

EHOO 
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MAVIO  (Multivariate  One-way  ANQVA) 

Purpose: 

This  program  performs  a  multivariate  one-way  analysis  of  variance. 
Mathemat i ca 1  Mode  1 : 

The  model  for  this  design  is: 

Xij(r>  '  “(k)  *  Bj(r)  +  Eij(r) 

The  hypothesis  to  be  tested  is: 

Ho:  B  .  =0  for  a  1 1  j  r 

J  r 

Layout  of  Design: 

1.  Same  as  AV10  except  each  treatment  has  multiple  dependent  variables. 

2.  Each  subject  has  r  responses. 

j.  There  are  k  levels  of  treatments. 

4 .  Subjects  are  randomly  assigned  to  the  treatment  levels  with  each 
subject  designated  to  receive  only  one  level. 

5.  Under  each  treatment,  there  are  an  equal  number  of  (NR)  observations. 
User  Considerations  and  Procedures: 

1.  A  matrix  data  file  must  be  created  with  r  data  points  per  line. 

On  input,  index  observations  under  each  treatment  fastest,  then 
treatment.  (For  example,  the  first  record  contains  r  responses 
for  subject  one,  treatment  b| ;  second  record  contains  r  responses 

for  subject  two,  treatment  b^.  .  ..  then  r  responses  for  subject 

one,  treatment  b^.  .  .,  last  record  contains  responses  for  subject 

ri  treatment  b^) .  A  printout  of  raw  data  would  show  r  data  points 

per  line. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard 
copy  can  be  obtained  from  the  line  printer.  Option.  I  for  CRT 
output,  6  for  line  printer  output. 

3.  A  printout  of  raw  data  can  be  obtained.  Option:  1  if  raw  data 
printout  is  desired,  0  for  no  printout.  The  output  device  is 
designated  by  the  above  option  (•/ 2). 
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4.  A  printout  of  the  sums  of  squares  and  cross  products  matrix 
(error  matrix)  can  be  obtained.  Option:  1  if  printout  desired, 
0  for  no  printout. 

5.  Parameters  required: 

a.  number  of  treatments  (maximum  20) 

b.  number  of  responses  per  subject  (maximum  ?0) 

c.  number  of  subjects  per  treatment  le''el  (maximum  30) 

d .  name  of  data  file 

e.  format  of  data  file 

6.  Pr i n tout  g i ves : 

a.  raw  data  (optional) 

b.  error  matrix  (optional) 

c.  the  U-statistic  with  degrees  of  freedom 

d.  approximate  F-value,  degrees  of  freedom,  and  approximate 
alpha  level 

Test  Data: 

This  program  was  tested  using  data  from  Clyde  Kramer's,  A  First 
Course  in  Multivariate  Analysis,  Clyde  Kramer,  Publisher,  1972, 

Pp.  121-144. 
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RU,  MAV10 
SU,4 

ONE-WAY  MANOVA  WITH  NO  RANDOM  1 2ED  BLOCKS 

ENTER  NAME  OF  YOUR  DATA  FILE 
OMAV  1 0 

ENTER  DATA  FORMAT 

(F*.1,1X,F3.I) 

ENTER  NUMBER  OF  TREATMENTS  AND  NUMBER  OF  VARIABLES 

M 

ENTER  1  FOR  PRINTOUT  OF  RAW  DATA,  ELSE  ENTER  0 
1 

ENTER  1  FOR  CRT,  6  ^OR  LINEPRINTER 

1 

ENTER  NUMBER  OF  OBSERVATIONS  FOR  TREATMENT  1 

7 

24.03.5 

13-33.5 

12.24.0 

14.04.0 

22.23.6 

16.14.3 

27-95.2 

ENTER  NUMBER  OF  OBSERVATIONS  FOR  TREATMENT  2 

7 

7.43.5 

13.23.0 

8.53.0 

10.13-0 

9.32.0 

8.32.5 

4.31.5 

ENTER  NUMBER  OF  OBSERVATIONS  FOR  TREATMENT  3 

5 

16.43.2 

24.02.5 

53.01.5 

32.72.6 
42.82.0 

ENTER  NUMBER  OF  OBSERVATIONS  FOR  TREATMENT  4 

2 

25.12.7 
5.92.3 

ENTER  1  FOR  PRINTOUT  OF  ERROR  MATRIX 
1 

THE  ERROR  SS  AN"  CP  MATRIX 
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ROW  1 

. 130267942S5D+04  1 7644COOOO 1 D+02 

ROW  2 

-.17644000000+02  .677771428650+01 

THE  U-STATtSTIC  EQUALS  . 1 5961 4 11 3970+00 


WITH  DEGREES  OF  FREEDOM  2  3 


THE  APPROXIMATE  F-VALUE, 
9.51913  6 

AND  THE  ALPHA  LEVEL  IS 
MAV02  ABORTED 


DEGREES  OF  FREEDOM 
33 

.0000195 


20 
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MAV10 


T-00003  ! S  ON  CR00002  USING  OOOOl  BLKS  R-0000 


000 1  : SV , h 

0002  RP.MAV02 

0033  :RU,MAV01 

OOOA  :0F,MAV02 

0005  : SV , 0 


MAV01  T-00003  IS  OH  CR00002  USING  00013  BLKS  R-0000 


0001  FTN4.L 

0002  PROGRAM  MAV01 

0003  DOUBLE  PRECISION  Y < 30 > , T ( 2 0 , 3 0 ) , G< 30 > , H< 30 , 30 > , E ( 30 , 3 0 > , 

0004  1  SUM ,  TN , SU , DET  , DETN  ,  T4 , OF  1 , DF  2 

0009  INTEGER  R 

0004  CONNOH  I , J , R, H , E , DET , DETH, IUN IT , TN , T , G , Y , N<  30 ) z N AME<  3  > , I FH T ( 20  > 

0007  COMMON  I B( 2 72  )  -  I BUF ( 254  ) 

OOOB  DIMENSION  NN< 3  > 

0009  DATA  NH/2HMA, 2HV0, 1H2/ 

0010  WRI  TE< 1«  1  > 

0011  1  F0RHATC3X, 'ONE-HAY  NANOVA  WITH  HO  RAHDOHI ZED  BLOCKS’- /  > 

0012  MRITE(  1-2) 

0013  2  FQRHAT< 'ENTER  NAME  OF  YOUR  DATA  FILE*) 

0014  READ< 1 -3  )  NAME 

0019  3  FORM AT( 3A2  ) 

0014  HRITE<  1  -  4  ) 

0017  4  FORHATt 'ENTER  DATA  FORMAT" > 

0018  READ<  l  ,  3  >  I FMT 

0019  3  FORMAT ( 20A2  ) 

0020  CALL  OPEH< IB- I ER , N AME , 3  -  0  - 0>  234  > 

0021  IF< IER .GE . 0  )  GO  TO  10 

0022  U R I  T E<  1-  4  )  NAME.  IER 

0023  4  FORMAT  <  3 A2. *  FAILED  TO  OPEN.  IER  >  ' .  1 9  > 

0024  STOP 

0029  10  URITE<1.11) 

0024  1  1  FORMATCENTER  NUMBER  OF  TREATMENTS  AND  NUMBER  OF  VARIABLES") 

0027  READC 1  ,*  >  J  .R 

0028  C  INTIALI2E  ALL  SS  AND  3CP  AND  SUMS 

0029  NT-0 

0030  DO  20  1-1. J 

0031  DO  20  K-l.R 

0032  20  T< I , K  ) -0 . ODO 

0033  DO  30  I-l.R 

0034  C<I)«O.DO 

0033  DO  30  K-l.R 

0034  E< I >  K  >-0 . DO 

0037  30  H  < I . K ) -0 . OO  0 

0038  URITE< 1. 40) 

0039  40  FORMAT< 'ENTER  1  FOR  PRINTOUT  OF  RAW  DATA.  ELSE  ENTER  0*) 

0040  READU,*)  IPTO 

0041  WRI  TE<  1,41) 

0042  41  FORNATCENTER  1  FOR  CRT,  4  FOR  LI  NEPRI NTER"  ) 

0043  READU,*)  I  UN  I  T 

0044  DO  30  I-l.J 

0043  WRI  TE<  1,31)  I 

0044  31  FORMAT< 'ENTER  HUMBER  OF  OBSERVATIONS  FOR  TRE ATME N T ■ , I  3 > 

0047  READ< 1  ,*  )  M<  I  > 

0048  TH-TN*N<  I  ) 

0049  IF<  <  IPTO  .  EQ  1  >  AND  .  <  I  UN  I  T  EQ  .  4)  )  WRITE<4,32>  I 

0030  32  FORMATC//, 10X.  'TREATMENT  • , I  5  ,  /  ) 

0031  DO  30  IV-1,  N<  I  ) 


r 


0092 

0093 

0^94 

0039 

0036 

0057 

0059 

0059  33 

0060  50 

0061 
0062  C 
0063 
0064 
0065 
0066 

0067  210 

0068 

0069  200 

0070  C 

0071 

0072 

0073 

0074 

0073 

0076 

0077 

0078 

0079 

0080  320 

0081 

0082  300 

0093 

0084  137 

0083 

0086 

0087  C 

0098 

0089  300 

0090 

0091 

0092  303 

0093  301 

0094  302 

0093  C 
0096  307 

0097 

0099  600 

0099 
0100 
0101 
0102 


CALL  REAOFC 18,  IER,  I9UF  > 

CALL  CODE 

REAO< I BUF , IFHT  )  < Y < K ) , K ■ 1 , R > 

IF<  I PTO . £0  -  1 )  WRITE<IUNIT,IFNT)<Y<K>,K-1,R> 

00  33  K*l,R 

TCI  ,K>«T< 1 >  K )  + Y( K) 

G<  K  >«C(K  )-»Y(K  ) 

CONTINUE 
CONTINUE 
CALL  RWNDFC IB  ) 

CALCULATE  H  NATRIX 
00  200  I-l.R 
00  200  L-1,R 
3UH-0. 00 
00  210  K  ■  1 ,  J 

SUH*SUM+T<K,L  )«T(K< I  )/N<  K) 

E(I  ,  L>  — SUH 

HU  ,  D-SUH-CC  I  >*G<  L  )/TN 

CAL.  E  NATRIX 

DO  300  1*1, R 

DO  300  L ■  1 , R 

SU-ODO 

DO  320  H ■  1 , J 

DO  320  N  1  *•  1 ,  N<  H  ) 

CALL  READF< IB,  IR, IBUF  ) 

CALL  CODE 

READ< IBUF, IFNT  X Y<  IK), IK-1 ,R  > 

SU*SU+Y(  I  )*  Y<  L  ) 

CONTINUE 
CALL  RMNDFC  IB  ) 

E<I,L)-E<  I , L  )  +  SU 
WRITEC  1,137) 

FORHATC "ENTER  1  FOR  PRINTOUT  OF  ERROR  NATRIX*) 

READd  ,  *  >  IPTO 

IF< IPTO. HE. 1 )  GO  TO  307 

WRITE  OUT  E  NATRIX 

WRITE<  IUNIT ,300) 

FORKATC // 10X, *THE  ERROR  SS  AND  CP  NATRIX",/) 

DO  301  I  *  1 , R 
WRITE< IUNIT, 303)  I 
FORHATC/, 3X, ‘ROW*, 13) 

MRITEC  IUNIT, 302  )  < E (I , K > , K ■ l , R  ) 

F0RHATC3C  3X,D17. 11  )  ) 

CREAT  H+E  HATORIX  ....  N 
DO  600  I  ■  1 ,  R 
DO  600  K-l, R 
H< I , X  )  »H< I,  *>♦£<  I , K  > 

CALL  CLOSEC  IB  ) 

CALL  EXECC9.NN) 

END 

EHDf 


MAV0  2  T-00003  13  ON  CR00002  USING  00004  BLKS  R-0000 


0001 
0002 
0003 
0004 
0003 
0004 
0  00  7 
0008 
0003 
0010 
001  1 
0012 
0013 
0014 
0013 
0014 
0017 
0019 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0024 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0033 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 


FTN4  /  L 

PROGRAM  HAV02 
INTEGER  R 

DOUBLE  PRECISION  H<  30,30  >#E<  30#  30  >.DET  <  DETH/  SU / SUM  <  T4  ,  DF  1  /  D1'2 

DOUBLE  PRECISION  TH 

CONNOH  I»J/R»H/E,DET/DETH/IUKIT/TN 

CALL  MINV<H/R, DETH > 

CALL  M INV<  E / R / DET  ) 

DET-DET7DETH 

1 1- 4-1 

12- TN-1 

13- TH-2 

WRITE! IUNIT  <800)  OET 

800  FORMAT!,'/, 3X#  "THE  U-STATISTIC  EQUALS  ",  SX,  D1  6  .  1  1  > 

WRITE! IUNIT  <802)  R  «  11,12 

802  FORMAT!/, 3X, "WITH  DEGREES  OF  FREEDOM  ",3!I7)> 

C  FIND  APPROX.  F  LEVEL 

I F< R.NE2  )  GO  TO  900 
DETH"! 1-DSQRT! DET >  >/DSQRT! DET  > 

D*DETH*I 3/11 
E 1 *2 • I  1 
DE-2*!  12-1  ) 

GO  TO  901 

900  SUH»R*R*< J-1)*<J-1  ) 

S'J-1 

IF<  SUN .  LE  .  3 . ODO )  GO  TO  801 

SU-D8QRT! (R*R*< J-l )*<  J- 1  >-4 .  )/(  SUN -5  > ) 

801  T4-TN-1-! J+R>/2. 

DETH«DET *•< 1 . /SU  > 

DF1-R*< J-l  ) 

DF2-1  +  T4*SU-R*( J-l >72  . 

DETH-!  <  l  .  -DETH  >/DETH >*DF 1/DF2 
C  USE  SINGLE  PREICSION  IN  CALL  TO  FPR08 

D-DETH 
El-DFl 
DE-DF2 

901  CALL  FPROB( D,  El#  DE  ,  SO / FPR  > 

WRITE! IUNIT, 902)  O.El/DE/FPR 

902  FORMAT! // ,  *  THE  APPROXIMATE  F-VALUE,  DEGREES  OF  FREEDOM  * 

-  ■ , 3X/F10. 3, 2< I7>/ /, "  AND  THE  ALPHA  LEVEL  IS"/ 

J{3 X ,  F  1 0 . 7  > 

END 

ENDt 
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MAV 1 1  (Multivariate  Two-way  ANOVA,  Repeated  Measures) 

Purpose : 

This  program  performs  a  multivariate  one-way  analysis  of  variance 
with  replication  either  using  matched  subjects  or  by  reoeated 
measures . 

Mathematical  Model: 

The  model  for  this  analysis  is: 

ij (r)  (r)  i ( r )  j (r)  i j (r' 

The  hypothesis  to  be  tested  is: 

Ho :  B .  =  0  for  a  1 !  j  r 

J  r  J 

Layout  of  Design: 

1.  Same  as  AV 1 1  except  each  treatment  has  multiple  dependent 
variables 

2.  Each  subject  has  r  responses 

3.  There  are  k  levels  of  treatment  B 

A.  Subjects  are  assigned  to  a  treatment  so  that  variability  wit!', in 
a  treatment  is  less  than  the  variability  among  treatments.  Homo¬ 
gen  i  ty  within  treatments  may  be  achieved  by  using  a  subject  as 
his  own  control  or  by  using  subjects  matched  on  the  basis  of  a 
variable  that  correlates  with  the  dependent  variable 

5.  Under  each  treatment  there  are  equal  number  (NR)  observations 

User  Considerations  and  Procedures: 

1.  A  matrix  data  file  must  be  created  with  r  responses  per  record. 

On  input,  index  responses  fastest,  then  subjects,  and  treatment 
slowest.  (For  example,  first  record  contains  r  responses  for 
subject  one,  treatment  b^;  second  record  contains  r  responses 

for  subject  two,  treatment  b^.  .  .,  then  r  responses  for  subject 

one,  treatment  b^-  •  •»  the  last  record  contains  the  r  responses 

for  subject  N,  treatment  b^.)  A  printout  would  show  r  data 

poi nts  per  line. 
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2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 

output,  6  for  line  printer  output. 

3.  A  printout  of  raw  data  can  be  obtained.  Option:  !  if  raw  data 

printout  is  desired,  0  for  no  printout.  The  output  device  is 

designated  by  the  above  option  (#2). 

k.  A  printout  of  the  sums  of  squares  and  cross  product  matrix  (error 
matrix)  can  be  obtained.  Option:  1  if  printout  is  desired,  0 
for  no  printout. 

5.  Parameters  required: 

a.  number  of  subjects  (maximum  20) 

b.  number  of  treatments  (maximum  2 0 ) 

c.  number  of  responses  per  subject  (maximum  30) 

d .  name  of  data  file 

e.  format  of  data  file 

6 .  P  r  i  n  tout  g i ves : 

a.  raw  data  (optional) 

b.  error  matrix  (optional) 

c.  block  (subject)  totals  for  each  dependent  variable 

d.  treatment  totals  for  each  dependent  variable 

e.  the  U-stat i st i cs  with  degrees  of  freedom 

f.  approximate  F-test  with  degrees  of  freedom  and  alpha  level 

Commen  t  s : 

Mount  a  scratch  tape  before  running  program. 

Test  Data: 

This  program  was  tested  from  Clyde  Kramer's,  A  First  Course  i n 
Multivariate  Analysis,  Clyde  Kramer,  Publisher")  1  972  ,  Pp  1  45- 1  58 . 
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RU,  MAVl 1 
SU,4 

PROGRAM  TO  PERFORM  ONE-WAY  MAMOVA  WITH 
REPEATED  MEASURES  (OR  RANDOMIZED  BLOCKS) 

ENTER  NAME  OF  DATA  FILE 
#MAV1 1 

ENTER  FORMAT  OF  FILE 

(3 ( 2X , F3 . 0) ) 

ENTER  NUMBER  OF  BLOCKS,  TREATMENTS,  AND  VARIATES 

4,5,3 

ENTER  1  FOR  LISTING  OF  RAW  DATA,  ELSE  ENTER  0 
1 

ENTER  1  FOR  ERROR  MATRIX  PRINTOUT,  ELSE  ENTER  0 
1 

ENTER  I  FOR  CRT,  OR  6  FOR  LINE  PRINTER  OUTPUT 

6 

ENTER  1  FOR  PRINTOUT  OF  IP.FATMENT  AND  BLOCK  TOTALS 
1 

MAVl B  ABORTED 
MAV1C  ABORTED 


RAW  DATA 


TREATMENT 


I 


96. 

10. 

725 

142. 

16. 

700 

122. 

13. 

655 

111. 

13. 

680 

102. 

TREATMENT 

15. 

695 

2 

106. 

10. 

710 

95. 

14. 

705 

93. 

12. 

680 

TREATMENT 

3 

109. 

15. 

690 

113. 

15. 

690 

101 . 

14. 

680 

100. 

19. 

685 

TREATMENT 

4 

103. 

17. 

680 

97- 

16. 

690 

99. 

13. 

730 

135. 

12. 

670 

98. 

TREATMENT 

17. 

680 

5 

97. 

14. 

695 

05. 

16. 

680 

86. 

22. 

710 

PRINTOUT  OF 

SLOCK  TOTALS 

508.00000 

74.00000 

3470.00000 

555.00000 

71  .00000 

3485.00000 

522.00000 

70.00000 

3450.00000 

525.00000 

78.00000 

3425.0000 

I 
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PRINTOUT  OF  TREATMENT  TOTALS 


471-00000 

52.00000 

2760.00000 

396.00000 

51 .00000 

2790.00000 

423-00000 

63-00000 

2745.00000 

434.00000 

58.00000 

2770.00000 

386.00000 

69-00000 

2765.00000 

THE  ERROR  SS 

AND  CP  MATRIX  IS 

.22589000001D+04 

-.2464999998D+02 

lfa58250000D+04 

- .  2464999998D-1 02 

.915000000000+02 

.  40000000000D+01 

-.16582500000+04 

.40000000000D+01 

. 55325000000D+04 

THE  U-STAT 1  ST  1 C 
WITH  DESGREES  OF 

EQUALS  .3990056930 

FREEDOM  3  4 

THE  APPROXIMATE  F  VALUE,  DEGREES  OF  FREEDOM, 

-  1.20013  12  35 

AND  THE  ALPHA  LEVEL  IS  .3212206 
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■HAV1A  T-00003  IS  OH  CR00002  USING  00008  BLKS  R-0000 
0001  FTN4  ,  L 

0002  PROGRAM  MAV1A 

0003  DOUBLE  PRECISION  ZC 30 > 

0004  INTEGER  8.T.P 

0003  COMMON  B , T , P ,  I  UN  I T ,  IP T ,  I PT 1 , I FM TC 2 0 ) , I B UF C 2 3 6  ) , I B C  2 72  )  ,  Z 

0006  DIMENSION  NH<  3  >,  NAME(  3  > 

0007  DATA  NN/2KMA, 2HV1, 1NB/ 

0008  REWIND  9 

0009  WRI  TEC  1 .  1  ) 

0010  1  FORMAT < "PROGRAM  TO  PERFORM  ONE-WAV  MAHOVA  WITH 

0011  ^"REPEATED  MEASURES  <  OR  RANDOMIZED  BLOCKS  )*,//  > 

0012  WRITEUP) 

0013  2  FORMATC " ENTER  NAME  OF  DATA  FILE*) 

0014  READC 1 , 3  )  NAME 

0013  3  FORMAT ( 3A2  ) 

0016  WRITEC 1*  4  > 

0017  4  FORMATC "ENTER  FORMAT  OF  FILE*) 

0018  READC1.3)  I  FM  T 

0019  5  FORHAT<  20A2  ) 

0020  WRITEC  1,6) 

0021  6  FORM AT<  *  ENTER  NUMBER  OF  BLOCKS. TREATMENTS/  AND  VARIATES") 

0022  READ< 1  ,*  )  B.T.P 

0023  CALL  OPENC I B, IER, NAME, 3. 0,0, 272) 

0024  IFC IER .GE  .0  )  GO  TO  20 

0023  WRI TE<  1.7)  NAME.  IER 

0026  7  FQRMATC3A2, 3X, 'FAILED  TO  OPEN.  IER  -  * ,  15  ) 

002?  STOP  7777 

0028  20  WRIT E( 1.21) 

0029  21  F0R1AT< "ENTER  1  FOR  LISTING  OF  RAW  DATA.  ELSE  ENTER  0") 

0030  READ< 1 . •  )  I PT  0 

0031  WRI TE< 1. 22) 

0032  22  FORMAT< "ENTER  1  FOR  ERROR  MATRIX  PRINTOUT.  ELSE  ENTER  0") 

0033  READCl.O  IPT 

0034  WRITEC 1. 23) 

0033  23  FORMATC "ENTER  1  FOR  CRT.  OR  6  FOR  LINEPRONTER  OUTPUT*) 

0036  READCt,*)  IUNIT 

0037  IF< IPTO.EQ.  1)  WR  I T  E  C  I  UN  I  T  ,  24  > 

0038  24  FORMATC//, 3X,  "RAW  DATA*./) 

0039  DO  30  I*  1  .  T 

0040  I F< IPTO.EQ.  1)  WR I T E C  I  UN  I  T ,  23  )  I 

0041  23  FORMATC/,  10X.  "TREATMENT  *,I7) 

0042  DO  30  J-1,8 

0043  CALL  READFC  IB.  IER.  IBUF) 

0044  CALL  CODE 

0043  READ< IBUF. IFMT  )  CZCK),K-i,P) 

0046  I  F<  IPTO.EQ. 1)  WR  ITE(  I  UN  IT,  IFMT  >  <Z<K>,K-1,P) 

0047  30  WRITEC 8, IFMT )  <  Z  C  K  ) ,  K  » 1  ,  P  ) 

0048  ENDFILE  8 

0049  REWIND  8 

0030  CALL  CLOSEC  IB  ) 

0031  WRITEC 1. 60) 

0032  60  FORMATC //, 'ENTER  l  FOR  PRIHTOUT  OF  TREATMENT  AND  SLOCK  TOTALS") 

0033  READC 1 , *  )  IPT1 

0054  CALL  EXECC9.NM) 

0033  END 

0036  END*  ,7n 


HAV1B  T "00003  IS  OH  CR00002  USING  00000  BLKS  R-0000 


0001 

FTN4,  l 

0002 

PROGRAM  MAV1B 

0003 

DOUBLE  PRECISION  B 1 < 2 0 , 3 0  ) , T l< 20 « 3 0 > , G < 30 > , H ( 3 0 , 3 0  )  , E <  30 , 3 0  > , 

0004 

6Y!30),8L/BK,TI,SUN 

0003 

INTEGER  B/T,P 

0006 

COMMON  BjT/Pi  I UH  IT  >  IPT, I  TP  1  /  I  FMT!  20  )  , H , E, Bl / HI , G / Y 

000? 

DIMENSION  NM<  3  ) 

0008 

DATA  NM/2HMA/  2HV  1 ,  1HC/ 

0009 

D010  1*1/20 

0010 

D010  J-l / 30 

001  1 

G! J  )»0 .00 

0012 

81<  I  ,  J  >-0  .DO 

0013 

10 

Tl<  I  ,  J  >-0  .DO 

0014 

CALL  END  I 0 

0013 

DO  30  I  *  1 <  T 

0016 

DO  30  J  *  1 / B 

0017 

R  E  A  0  <  8  /  IFMT  )  <  Y!  1 1  )  ,  II-  1  ,  P  > 

0018 

DO  30  K-  1  ,  P 

0019 

Bl<  J  ,K  )  =  01!  J,  K  )+  Y!  K  ) 

0020 

30 

T  1 !  I  /  K  )■  T  1  <  I/K)+Y<K  ) 

0021 

REWIND  8 

0022 

DO  40  K«1  ,P 

0023 

DO  40  I *  1  /  B 

0024 

40 

G!  K  )  *G !  K  )  ■*■8  1  <  I  /  K  ) 

0023 

8I-B 

0026 

BK-B*T 

0027 

T  I*T 

0028 

IF<  I  TP  1. HE.  1)  GO  TO  41 

0029 

WRITE!  IUN  IT , 42  ) 

0030 

42 

FORMAT!//, 3X, 'PRINTOUT  OF  BLOCK  TOTALS"  ,  /  ) 

0031 

DO  44  1*1 /B 

0032 

WRITE!  IUNIT/43  ) 

0033 

43 

FORMAT! 3X  ) 

0034 

44 

WRITE! IUNIT/43  X  Bl< I, K) , K-l/ P  > 

0033 

45 

FORMAT! 3! 3X ,F  13 . 5  >  > 

0036 

WRITE!  IUNIT/46) 

0037 

46 

FORMAT!/'?// 3X  / 'PRINTOUT  OF  TREATMENT  TOTALS",/) 

0038 

DO  47  1*1  ,  T 

0039 

WRITE!  IUNIT/43  ) 

0040 

47 

WRITE!  IUHIT/45 >  ! T  1  <  I  ,  K > , K » 1 , P  ) 

0041 

41 

CONT  IHUE 

0042 

00  50  1*1 ,P 

0043 

DO  50  J»1 ,P 

0044 

S  UM  *  0 , DO 

0045 

DO  60  K*  1  ,  r 

0046 

60 

SUM-SUM+T  1!  K,  I  >*T1!K,J> 

0047 

M! I / J  ) -SUM/ 8 I -G!  I  )*G! J  >/BK 

0048 

E! I , J  )«-H!  I  /  J  ) 

0049 

SUM-0  DO 

0030 

DO  70  K-  1  /  B 
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0031 
0032 
0033 
0034 
0055 
0034 
0057 
0059 
0  03  9 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0  06  7 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0073 
0076 
0077 


70  SUN-SUtH'B  1C  K,  I  >*81(  K,  J  ) 

EC I , J  >-£<  I , J ) -  SUM/ T  I 
SUM-0 . 00 
00  90  1 1  ■  1 ,  T 
00  90  J  l  *»  1  /  B 
CALL  ENDIO 

REAOC  8  j I FHT  )  <  YC K  ) , K-l , P  > 

90  SUH-SUM+ Y<  I  )*YC J  ) 

E< I , J  )-E<  I,  J >  +  SUM 
REWIND  8 

50  COHTIHUE 

C  H,E  MATRIX  COMPLETE  OPTION  FOR  PRINT  OF  E 

IFCIPT.EQ.O)  CO  TO  100 
W  R I  T  EC  I U N  IT  ,  500  ) 

300  FQRMATC/V,10X»  "THE  ERROR  SS  AND  CP  MATRIX  IS 
D0501  1*1, P 
WRITEC IUNIT ,43 > 

501  WRITEC  IUNIT ,502)  C  E  C  I  ,  J  > ,  J  ■  i  ,  P  > 

502  F0RMATC4C  4X , D 1 6 .  11  )  ) 

C  CREAT  H+E  STORE  IN  H 

100  D0600  1*1, P 

D0600  J»i,P 

600  H< I , J  )-H<  I , J )*E<  I , J  ) 

C  FINISHED  WITH  THIS  PART 

CALL  EXECC9  ,NH > 

END 

END! 
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"MAV1C  T»00003  JS  OH  CR  00002  USING  000  07  BLKS  R*0000 


0001 

FT H4  ,  L 

0002 

PROGRAM  HAV1C 

000  . 

DOUBLE  PRECISION  H <  30  ,  3 0  ) , E<  3 0 , 30  ) , D E T , DE T  1  ,  U  ,  F 

0004 

DOUBLE  PRECISION  S U M > SU , T4 , D F 1 

0005 

INTEGER  B,T,P 

0006 

COMMON  B  <  T /  P ,  I  UN  !  T  j  ITP .  I  TP  1 ,  IFMT(20),H,E 

0007 

CALL  MINV<  E,P,DET) 

oooa 

CALL  M  I N  V  <  H  ,  P  , DET1  ) 

0009 

U-DEVDET  1 

0010 

C 

THE  U-STATISTIC  WITH  DF  P , 11, 12 

001  1 

I 1-T-l 

0012 

I2»<  B-l )* I 1 

0013 

I  3"  3  «  T 

0014 

C 

Il-CEGREES  OF  FREEDOM  FOR  MYPOTH  I?  =  Df  FOR  ERROR 

0015 

C 

l  3*  TOTAL  SAMPLE  SIZE 

0016 

MRI  TE<  IUN  IT , 1 00  )  U , P,  1 1 ,  12 

0017 

10  0 

FORMAT'  XXX, 5X ,  ‘THE  U-STATISTIC  EQUALS"  ,  5  X  ,  F  1  5  .  10,  X , 

0018 

*5  X ,  "WITH  DEGREES  OF  FREEDOM  *,3(5X.I?)) 

0019 

C 

NEXT  VC  CAL  APPOX.  F-VAULE 

0020 

C 

CHECK  FOR  EXACT  F-V4LUE 

002  1 

IF< P  .HE. 2  )  GO  TO  2  0  0 

0022 

DET=DSORT(U ) 

0023 

DET»<  1  -  D  £  ',  )XDET 

0024 

D  =D E  T* <  12-1  )X I  1 

0025 

c 

D-EXACT  F  VALUE 

0026 

E  1  =  I  1  *•  2 

0027 

DE=2*< 12- 1  ) 

0028 

C 

CALL  F  PR  0  3 

0029 

GO  TO  31"'  0 

0030 

20  0 

S  UM  =  P*  P+  I  t*  I  1 

003  1 

SU* 1  .DO 

0032 

I  F<  SUM  .  LE  .  5  .  DO  >  GO  TO  2  10 

003  3 

SU*DSQRT*  CP*P*Il*l  1-4  D0)X(SUH-5  DO)) 

0  03  4 

2  10 

T  4“  I  3"  1  - < T  +  P  )  X  2  DO 

0035 

DET1»U**<  1  DO 7  SU  ) 

0036 

DF  l  »P*  1 1 

0037 

D  E  T  =  1+T4*SU-DF 1X2 . DO 

0038 

U=<<  1  .  DO-DET  1  >XDET  l  XDETXDF  1  ) 

0C3« 

C 

USE  SING'.E  PRECISION  OH  FPROB  CAL 

0040 

D  =U 

004  1 

E  1  *=  D  F  1 

0042 

D  EB  D  E  T 

0043 

c 

D  ,  E  1  ,  D  E  »==  F -VALUE  /  DEGREES  OF  FREEDOM 

0C44 

c 

F  PR  =»  ALPHA  -  LEVEL 

0  04  5 

300 

CALL  FPROB<  D  .  E  1  -  DF.  ,  SD  ,  F  PR  ) 

0046 

U  R I T  c (  I  U  N  i  1  ,902  )  D,El,DE,FPR 

004? 

90  2 

FORMAT  wV/  THE  APPROXIMATE  F -VALUE,  DEGREES  OF  FREEDOM 

0048 

i,X,"  =■  “  ,  5X  ,  F  1  0  .  5,  2  U  7  >  ,  X,  "  h  HD  THE  hlTHA  LEVEL  I3U, 

0049 

v.5X/  r  :o  .?  > 

0050 

END 

0  0  5  1 

END* 
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MAV20  (Multivariate  Two-way  ANOVA) 

Pur  pose : 

This  program  performs  a  two-way  multivariate  completely  randomized 
analysis  of  variance. 

Mathematical  Model: 


jk(r) 


The  model  for  this  analysis  is: 

ijk(r)  (r)  i  (r)  j  (r)  i  jlr)  i 

The  hypotheses  to  be  tested  are: 

Ho :  A .  =  0  for  all  i r 

i  r 

Ho:B.  =  0  for  all  jr 
J  r 

Ho :  AB .  .  =  0  for  a  1 1  i j  r 

i  j  r 

Layout  of  Design. 

1.  Same  design  as  AV20,  except  each  Factor  has  multiple  dependent 
variables 

2.  Each  subject  has  r  responses 

3.  There  are  two  factors  (A,B)  with  p  and  q  levels  of  treatments 

4.  'objects  are  randomly  assigned  to  the  pq  treatment  combinations, 
with  each  subject  receiving  only  one  combination 

5.  There  are  an  equal  number  of  observations  for  each  AB  cell 
User  Considerations  and  Procedures: 


A  matrix  data  file  must  be  created  with  r  responses  per  record. 

On  input  subjects  vary  fastest,  then  factor  B,  and  finally  A. 

(For  example,  first  record  cor. fains  r  responses  for  subject  one, 
treatment  ab  ^  j ,  second  record  contains  r  responses  for  subject 

two,  treatment  ab^  ....  then  r  responses  for  subject  one,  treat¬ 
ment  ab  j  2  •  ■  •>  then  r  responses  for  subject  one,  treatment  ab.^  • 

final  record  would  be  r  responses  for  subject  k  for  treatment  ab 

pq 

A  printout  of  raw  data  would  show  r  data  points  per  line. 


1  7** 


2.  The  data  analysis  can  be  displayed  on  the  CRT  or  a  hardcopy 
can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

3.  A  printout  of  raw  data  can  be  obtained.  Option:  1  if  raw  data 
printout  is  desired,  0  for  no  printout.  The  output  device  is 
designated  by  the  above  option  (t2) . 

4.  The  printout  of  the  sums  of  squares  and  cross  product  matrix 
(error  matrix)  can  be  obtained.  Option:  1  if  desired,  0  for 
no  printout. 

5.  Parameters  required: 


a . 

number 

of 

levels  of 

Factor 

A 

(maximum  20) 

b . 

number 

of 

1  eve  1 s  of 

Factor 

B 

(maximum  20) 

c . 

number 

of 

subj  ects 

per  AB 

cel  1  (max imum  32767) 

d. 

number 

of 

responses 

(r) 

e . 

name  of  data  file 

f . 

forma  t 

of 

data  file 

6.  Printout  gives: 

a.  raw  data  (optional) 

b.  error  matrix  (optional) 

c.  cel  1  total s 

d.  the  U -s ta t i s t i cs  with  degrees  of  freedom 
Test  Data: 

Program  was  tested  from  Clyde  Kramer's,  A  First  Course  in  Multivariate 
Analysis  ,  Clyde  Kramer,  Publisher,  1972,  Pp .  164-137. 


RU.MAV20 

TWO  WAV  MULTIVARIATE  ANALYSIS  OF  VARIANCE 

ENTER  NAME  OF  RAW  DATA  FILE 
*MAV20 

ENTER  FORMAT  OF  DATA 
(3X.F4. 1 ,2X,F5.I .2X.F4.1) 

ENTER  NUMBER  OF  LEVELS  OF  FACTOR  A,  FACTOR  B,  NUMBER  OF  VARIATES,  AND 
NUMBER  OF  OBSERVATIONS  PER  A,B  TREATMENT  CELL 
2, 3 , 3, 4 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LINEPR1NTER 

6 

ENTER  1  for  RAW  DATA  LISTING,  ELSE  ENTER  0 
1 

EN i l"  I  FOR  PRINTOUT  OF  ERROR  MATRIX,  ELSE  ENTER  0 
1 

ENTER  1  FOR  PRINTOUT  OF  FACTOR  TOTALS 
1 


RAW  DATA 


TREATMENT  PAIR  1  1 


40.1 

85.6 

46. 

,8 

41  . 1 

83.2 

41 . 

,7 

40.9 

79.5 

38, 

.  1 

39-4 

78.0 

39, 

.  6 

CELL  TOTALS 

.161500000000+03  .32630000000D+03  . 16620000000D+03 


TREATMENT  PAIR  1  2 


63.0 

102.4 

44.8 

61  .9 

100.  3 

39.4 

6  i  .  6 

101.3 

39-9 

64.0 

106.2 

50.0 

CELL  TOTALS 

250500000000+03 

4 1 020000000D+03 

. 1 74100000000+03 

TREATMENT 

PAIR  2 

1 

52.8 

114.4 

47.1 

53.6 

1  15.6 

42.1 

53-9 

114.2 

42.3 

53.8 

113-2 

35.7 

CELL  TOTALS 

.2141 OOGOOOOD+03  . 457400000000+03  . 1 6720000000D+03 


TREATMENT  PAIR  2  2 


68 

6 

129 

3 

42.7 

70 

7 

131 

0 

47.1 

69 

1 

135 

8 

45.2 

73 

3 

147 

6 

49.2 

CELL  TOTALS 

.281700000000+03  .54420000000D+03  . 1 8420000000D+03 


TREATMENT  PAIR  3  1 


41  .6 

142.3 

45.8 

37.7 

137.0 

37.0 

^3.2 

143,8 

44,0 

42.0 

143.6 

40.8 

CELL  TOTALS 

164500000000+03 

56670000000D+03 

. l6760000000n+03 

TREATMENT 

PAIR  3 

2 

62.8 

164.4 

44.4 

56 . 6 

1  56.0 

45.3 

63-3 

161  .3 

46.3 

60.9 

161.4 

42.2 

CELL  TOTALS 

.24360000000D+03  .643 1 OOOOOOOD+03  . 1782000000CD+03 
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ERROR  MATRIX 

ROW  4  1 

.644974999430+02 

. 104665000440+03 

ROW  4  2 

.104665000440+03 

.32391 249943D+03 

1 

1 

f 

i 

ROW  4  3 

.488375002150+02 

. 1 5558500028D+03 

i 

j 

i 

I 

ROW  TREATMENT  TOTALS 

ROW  4  1 

. 4 1 200000000D+03 

.736500000000+03 

I 

i 

ROW  4  2 

495800000000+03 

. 100160000000+04 

*■ 

i 

ROW  4  3 

.408100000000+03 

.120930000000+04 

[,  1 

[  ; 

;  1 

COLUMN  TREATMENT  TOTALS 

t  1 

COLUMN  1 

.540100000000+03 

.135040000000+04 

i  i 

COLUMN  2 

.775800000000+03 

.  1  5975000000D+04 

.488375002! 5D+02 
.  1  55585000280+03 
. 25961 750042D+03 


•34030000000D+03 

.351400000000+03 

.345800000000+03 


.50100000000D+03 
. 53650000000D+03 


HYPOTHESIS  TEiT 
HYPOTHESIS  OF 
INTERACTION  EFFECT 
FACTOR  A  EFFECT 
FACTOR  B  EFFECT 


RESULTS 

U-STATI STIC 
.471834081 63D+00 
.774734711830-03 
.231775787470-01 


DEGREES  OF  FREEDOM 

3  2  18 

3  1  18 

3  2  18 


■MAV24 

0401 

4002 

4003 

4004 

4003 

4004 
4007 
4048 
4009 
0014 
441  1 
4012 
0413 
0014 
4413 
4016 
0017 
4418 
0419 
0424 
0021 
4422 
0023 
0424 
4023 

4026 

4027 
0428 
4029 
4034 
0031 
0032 
4033 
0034 
0033 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
4043 
0046 
0047 
0048 
0049 
0030 


T ‘00044  IS  ON  CR44442  USING  40429  BLKS  R*4238 
FTN4  ,  l 

PROGRAM  HAV24 
INTEGER  C/R  ,P 

DOUBLE  PRECISION  R I J! 34 , 30 ) , G! 34 ) , X! 34 > - S UH! 30 > , RM, RCN , CN , SU 
D0U8LE  PRECISION  E < 34 , 3 0 > , DE T E , DE T 1 , DE T 2 , DE T 3 
COMMON  C,  R,  P,  H,  I  PT,  IUNIT, RIJ,IFHT!  20),  I  B!  27  2  >,  I8UF!  23  6), 
SHAME!  3  >,  X , SUM , E 
EQUIVALENCE  <G,SUM> 

REMIND  8 
WRITE!  1  *  1  > 

1  FORMAT  <  *  TWO  MAY  MULTIVARIATE  ANALYSIS  OF  VARIANCE', / 

$/ , "ENTER  NAME  OF  RAM  DATA  FILE') 

READ( 1 ,2 )  NAME 

2  FORMAT <  3A2  > 

CALL  OPEN! IB, IER, NAME , 3, 4, 4, 272 ) 

I  F!  I  ER  .  GE  .  0  )  GO  TO  24 
323  WRITE!  1,3)  NAME,  1  ER 

3  F0RMAT(3A2, '  FAILED  TO  OPEN,  I ER  ■  ’,13) 

STOP 

20  WRITE!  1,3) 

3  FORMAT! 'ENTER  FORMAT  OF  DATA') 

READ< 1 , 6  )  IFMT 

6  F  OR N  AT !  2  4 «2  ) 

WRITE!  1,7) 

7  FORMAT! 'ENTER  HUMBER  OF  LEVELS  OF  FACTOR  A,  FACTOR  B,“, 
S'HUNBER  OF  VARIATES,  AND  ',/, 'NUMBER  OF  OBSERVATIONS  PER  ', 
S6'  A,  B  TREATMENT  CELL  '  ) 

READ! 1 , * )  C ,R , P, N 
WRITE!  1,14) 

14  FORMAT! "ENTER  1  FOR  CRT  OUTPUT,  €  FOR  L  I N EP R  I N TE R "  ) 

REA  DC  1,0  I  UN  IT 
WRITE!  1,  13) 

13  FORMAT! 'ENTER  1  FOR  RAM  DATA  LISTING,  ELSE  ENTER  4') 

READ! 1 , *  )  IPTO 
WRITE!  1,  16) 

16  FORMAT! 'ENTER  1  FOR  PRINTOUT  OF  ERROR  MATRIX,  ELSE  ENTER  4') 
READ! 1 , *  )  IPT 

MRI  TE!  1,  17) 

17  FORMAT! 'ENTER  1  FOR  PRINTOUT  OF  FACTOR  TOTALS*) 

READ!!,*)  IPT1 

IF!  IPTO. EQ.  1 )  WRITE!  IUNIT, 13) 

13  f  0RMAT!//,5X,  "RAW  DATA*,/) 

CALL  ENDIO 
DO  30  I- 1  ,R 
DO  34  J-l ,C 
00  44  K- 1 , N 
40  S UN <  K  )  «0  .  DO 

IF!  IPTO.  EQ.  1)  WRITE! IUNIT,  11  >  I,J 
11  FORMAT! 1 3X,  "TREATMENT  PAIR  ',217) 

DO  34  K* 1 , N 
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0031 

CALL  READF< IB, IER, I8UF) 

0032 

CALL  C  00  E 

0033 

READ< IBUF, IFMT >  < X<  1 1 >,  I  1-  1 , P  ) 

0034 

IF(IPTO.EQ.i)  VRITE< IUNIT, IFMT)  <  X<  I  1  >  ,  1 1  *1  ,  P  > 

0033 

00  50  11*1, P 

0036 

30 

SUM<  11  )«SUM<  1 1  >*X<  1 1  ) 

0037 

URITE(8>31)  <  S UH <  1 1  ),  1 1  *  1 ,  P  ) 

0039 

31 

FORMAT (30016. 1 1 > 

0039 

I F( IPT1.HE. 1)  GO  TO  30 

0040 

MITEUUHiT.m) 

0061 

123 

FORMAT ( *  CELL  TOTALS*  ) 

0062 

«RITE( 10 HIT, 3 22)  <  SUN< 11  > , 11*1, P) 

0063 

WRI  TE( IUHIT ,333) 

0064 

522 

F0RMAT<3X,4<3X,016 . 11 )) 

0063 

533 

FORMAT  <  3X  ) 

0066 

30 

C0NT1HUE 

0067 

CALL  RWNDF< IB ) 

0069 

C 

NOV  CREAT  889X  I J  K(J  *  X  I  JK  V  INTO  RIJ  MTX 

0069 

REWIND  0 

0070 

CALL  INITCRIJ  > 

0071 

DO  300  1*1, P 

0072 

DO  300  J-l, P 

0073 

SU-0  .DO 

0074 

DO  400  L3*1,R 

0075 

DO  400  L  l  ■ 1 , C 

0076 

DO  400  L2*l , N 

0077 

CALL  RE  'Dr C  IB,  IER,  IBUF) 

0078 

CALL  COOE 

0079 

READ< IBUF, IFMT >  < X <  1 1  ) ,  I  1  *  l , P > 

0080 

400 

SU»SU+X<  I  )*X<  J  ) 

0081 

R  I J  < I , J )*SU 

0082 

CALL  RVNDFC  IB  ) 

0083 

300 

CONTINUE 

0084 

C 

CREAT  ERROR  MATRIX 

0083 

CALL  I N I T<  E  ) 

0086 

CALL  EHDIO 

0087 

DO  300  1*1, P 

0098 

DO  301  J  *  1 ,  P 

0089 

SU-0  DO 

0090 

DO  6 O'  K *  1 ,  R 

0091 

DO  600  L  *  1 , C 

0092 

READC  8 , 5  1  )  <X<  1 1  >,  I  1*  1  ,  P  > 

0093 

SU*SU+X<  I  )*X<  <1  ) 

0094 

600 

CONT IHUE 

0093 

REWIND  8 

0096 

CALL  EMCIQ 

0097 

30  1 

E(  I  ,  J  )  *R  I  J(  I ,  J  )-  SU / N 

0098 

300 

CONTINUE 

0099 

IF<  IPTJE.l)  GO  TO  364 

0100 

URI T  E  <  IUHIT, 365  ) 

0101 

563 

FORMAT<///, 3X, "ERROR  MATRIX") 

0102 

DO  136  1*1, P 
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/ 


0  10  3 

W  R  I  T  E(  IUM  IT ,32  )  I 

0104 

136 

WSITE< IUNIT,33 >  < EC  I , J > . J- 1 • P > 

0103 

364 

REWIND  8 

0106 

CALL  RWNDF<  18  ) 

0107 

CALL  INITCRIJ  ) 

0108 

DO  101  1*1/30 

010  8 

101 

C< I  >*0  .00 

OilO 

DO  100  1-1/ R 

0111 

0  0  100  ,1*1,  C 

0112 

DO  100  K-i.N 

0113 

CALL  READFC  18/ IER, IBUF) 

0114 

CALL  CODE 

0113 

REAOC IBUF/IFHT >  <  X  <  1 1  > ,  I  1  *  1 ,  P  > 

0116 

DCI  100  L *  1  /  P 

0117 

G(L  )"G<  L  )  +  X  <  L > 

Oil  8 

R!  J<  I  ,  D-Rl  J<  I  zL  >+X<  L  ) 

0119 

too 

CONTINUE 

0120 

IFC  IPT1.NE.  1)  GO  TO  36 

0121 

URI T£( IUNIT/37  > 

0122 

37 

FORHATC///, ■  ROW  TREATMENT  TOTALS",//) 

0123 

DO  110  I -1 , R 

0124 

URI TEC  IUNIT ,32)  I 

0123 

52 

FORHAT<  3X  ,  "ROW  •  *  13  > 

0126 

110 

URI  TE<  IUHIT  ,33  >  <  R  I  J<  I  .  J  > .  J- 1  ,  P  > 

0127 

53 

F  OR  N  AT  <  4  <  4X  ,  D  1  6  . 11  >  ) 

0128 

36 

RH-R«N 

0129 

CN-C*N 

0130 

R  CN ■ R*  C*  N 

0131 

CALL  ENDIO 

0132 

DO  200  1-1, P 

0133 

DO  200  J -1 , P 

0134 

SU-0  .DO 

0133 

DO  202  K ■ 1 , R 

0136 

202 

SU-SU+RI J  <  K , I  ) *R  I J  (  K  ,  J ) 

0  137 

SU*3U/CN-G<  I  )*G< J  ) / RC N 

0138 

U  R I  T  EC  8,311)  SU 

0139 

311 

FORMA TCD20 . 13 ) 

0140 

200 

CONTINUE 

0141 

CALL  R  WN  0  FC  13  ) 

0142 

REWIND  8 

0143 

CALL  ENDIO 

0144 

DO  203  I-1,P 

0143 

DO  203  U*l,P 

0  146 

R  EAD  <  8 , 3 1 1 )  RI J<  I, J  > 

0147 

203 

R  IJC  I ,  J  >-RI  JC  I  ,  J  HE(I  ,  J  ) 

0148 

CALL  HINVCRIJ , P, DET2) 

0149 

CALL  INITCRIJ  ) 

0130 

DO  92  1*1, R 

0131 

DO  92  J-l ,C 

0132 

DO  92  K*  1  ,  N 

0133 

C ALL  READF< IB,  IER,  IBUF) 

0  134 

CALL  CODE 

0133 

READC IBUF, IFMT )  < X <  1 1  ) ,  I 1 - l . P  ) 

0  136 

DO  92  L* 1 , P 

0137 

92 

RIJ<J,L>»RIJCJ,L)*X<L> 

0138 

I FC I PT  1  . ME  .  1  )  GO  TO  38 

131 


0139 

WRITE<  IUN  IT ,33 > 

0160 

35 

FQRNAT(/V7,1X,  "COLUMN  TREATMENT  TOTALS*/?/) 

0161 

DO  210  1-1/ C 

0162 

WR I  TE< IUN I T / 39 >  I 

0163 

39 

F0RNAT<5X, "COLUMN* /  17  ) 

0164 

210 

«RITE<  IUNIT/53 >  < R  I  J <  I , J  > , J-  1  ;  P  ) 

0165 

38 

00  94  I«1  ,P 

0166 

00  94  J-l/P 

016? 

SU-0 .00 

0168 

00  93  K-l/C 

0  2  69 

93 

SU-SU+RI J<K, I >*RIJ<  K, J  ) 

0170 

SU*SU/RN-G< 1  )*G<  J  )/RCN 

0171 

WRITEC 8/ 311  )  SU 

0172 

94 

CONTINUE 

0173 

CALL  RWNDF(  IB  ) 

0174 

REWIND  8 

0173 

J2-P*P 

0176 

CALL  END  I 0 

0177 

1)0  912  I«l,  J2 

0  178 

912 

REA0C8.511)  SU 

0179 

00  99  I»1 ,P 

0180 

00  99  J*1,P 

0181 

READC8 ,51 1 )  RIJ<  I,  J  ) 

0182 

99 

RI4<  I, J )«RI J< I , J  )♦ E <  I  ,  J  ) 

0183 

REWIND  8 

0184 

CALL  MINV<«TJ , P, 0ET3) 

M83 

CALL  IHITCRIJ) 

0  1 8  S 

* 

SUB  H1/H2/E  FROH  TOTAL  GET  HE  STORE 

IN  TIJ 

0187 

00  3000  I«1,P 

0188 

DO  3000  J»i,P 

0189 

SU«0  .DO 

0190 

DO  4000  L 3*  1 , R 

0191 

DO  4000  Ll-l.C 

0192 

DO  4000  L2-1.N 

0193 

CALL  READF( IB, IER , IBUF) 

0194 

CALL  CODE 

0  19  3 

READ< IBUF, IFMT  )  < X (  1 1  ) , I  1  *  1 , P > 

0196 

4000 

SU-SU+X<  I  )*X<  J  > 

0197 

RIJ<  I, J  )»SU-G<  I  )*G( J  )/RCN 

0198 

CALL  RWNDF<  IB  ) 

0  199 

3000 

CONT  IHUE 

0200 

CALL  CLOSE<  18  > 

0201 

CALL  EHDIQ 

0202 

DO  1001  11-1,2 

0203 

DO  100  1  I  -1  ,  P 

0204 

00  1001  JM,P 

0203 

REAO<  8 , 3  1  l  )  X<  1  ) 

0206 

1001 

R  IJ(  I ,  J  )»RI  J(  I ,  J  )-XU  ) 

0207 

CALL  HINV<RIJ , P, DETt  ) 

0208 

CALL  M INV<  E  ,  P  »  OETE  ) 

0209 

OET 1 -DETE7DET  1 

0210 

OET2-OETE7DET2 

021  1 

DET3-0ETE/DET3 

0212 

c 

OETl ,DET2,0ET3  CONTAIN  U  -STATISTIC 

FOR  H  1  ,  H  2 , H3  HYPQTH 
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0213 

J 1-R-l 

0214 

J2-C-1 

0213 

J  3" J  1*02 

0216 

K»R*C*<N-1) 

0217 

C 

OF  ARE  P, J<  1  >,K 

0218 

WRIT £<IUMIT, 409)  DET1,P,J1,K,DET2,P,J2,K,DET3,P,J3,K 

0219 

409 

FORHAT(/V,tOX,  ‘HYPOTHESIS  TEST  RESl’,-T3"///<3Xi  "HYPOTHESIS  OF 

0220 

$10X,  "U-STATISTIC". 1  OX  , "DEGREES  OF  FREEDOM 5X, 

0221 

l* INTERACTION  EFFECT  *  ,  3  X , D  16  .  11,3X,3I7,A3X,  "FACTOR  A  EFFECT 

0222 

28X, D16 . 1 1 ,5X, 317 5X, “FACTOR  8  E FFECT  “  ,  8 X, D  16 . 1 1 , 3X , 3 1 7  ) 

0223 

C 

PLACE  FPROB  HERE  IN  WANTEO 

0224 

END 

0223 

SUBROUTINE  ENDIO 

0226 

C 

SUB.  TO  WAIT  UNTIL  TAPE  IS  FREE 

0227 

10 

CALL  EXEC < 1 3,  108,11,12,  13) 

0228 

IF< I 1 . U .0)  GO  TO  10 

0229 

RETURN 

0230 

END 

0231 

SUBROUTINE  IN  I T< RIJ  ) 

0232 

DOUBLE  PRECISION  RIJ<  30,30  > 

0233 

DO  10  1-1,30 

0234 

DO  10  J-i  ,30 

0233 

10 

RIJ< I, J ) -0 . 00 

0236 

RETURN 

0237 

END 

0238 

ENDS 
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S RE G R  (Simple  Linear  Regression) 

Purpose : 

This  program  performs  a  simple  linear  regression,  and  provides 
an  ANOVA  goodness  of  fit  which  tests  the  aptness  of  the  model. 

Mathemat i ca 1  Mode  1 : 

The  model  for  the  regression  analysis  is: 

Y .  =  b.  +  b . x . 
i  0  ii 

where : 

i  =  1  to  N ,  the  number  of  observations 
User  Considerations  and  Procedures: 

1.  Program  expects  a  data  file  to  be  created  '.see  DA30)  with  N 
records.  Each  record  has  two  variables,  X  and  Y,  which  are 
arranged  in  that  order. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 

output,  6  for  line  printer  output. 

3.  A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  -aw 

data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (,~  2). 

4.  Parameters  required: 

a.  number  of  observations  (maximum  32767) 

b .  name  of  data  file 

c.  format  of  data  file 

5 .  P  r i n  tou  t  g i ves : 

a.  raw  data  (optional) 

b .  X  and  Y 

c.  estimated  value  of  B^  and  8^ 

d.  ANOVA  source  table 

e .  R  value 

f.  standard  error  of  8^  and 

ISC 


This  program  was  tested  using  data  from  John  Neter  and  Wil 
Applied  Linear  Statistical  Models:  Regression,  Analysis  of 
Experimental  Design,  Richard  D.  1 rw i n ~  Inc.,  197^, 93~! 
uses  double  precision. 


i am  Wasserman , 
Variance,  and 
The  program 


RU ,  SREGR 

SIMPLE  REGRESSION,  Y*>B0  +  B1*X 

DATA  ENTER  AS  X  THEN  Y 
ENTER  NAME  OF  FILE  FROM  DA30 
#SREGR 

ENTER  FORMAT  OF  DATA 
(2(3X,F5.0) 

ENTER  1  FOR  PRINTOUT  OF  RAW  DATA,  ELSE  ENTER  0 

ENTER  1  FOR  CRT  DISPLAY,  6  FOR  LINEPRINTER 

6 

ENTER  IN  NUMBER  OF  OBSERVATIONS 

10 


187 


RAW  OATA 


X  Y 


30.0 

73.0 

20.0 

50.0 

60.0 

128.0 

80.0 

170.0 

40.0 

87.0 

50.0 

108.0 

60.0 

135.0 

30.0 

69.0 

70.0 

148.0 

60.0 

132.0 

BAF.  »  5C 

1.0000  YBAR 

BO  «»  10. 

00000000 

B1  =  2. 

00000000 

SOURCE 

ss 

MODEL 

13600.0000 

ERROR 

60.0000 

TOTAL 

13660.0000 

1 10.0000 


DF  MC 

1  13600.0000 

8  7.5000 

9 


F 

1813.3333 


P(F) 


.00000 


R  -  .997801 

STANDARD  ERROR  OF  BO 
STANDARD  ERROR  OF  61 


2 . 50294 
.14852 


SR  EG  R  T-00003  IS  OH  CR00002  USING  00012  8LKS  R-0000 


0001 

FTN4 

0002 

0003 

0004 

0003 

OOOS 

0  00  7 

0008 

10 

0009 

0010 

1  1 

001  1 

0012 

12 

0013 

0014 

13 

0013 

001S 

14 

0017 

0018 

0019 

0020 

13 

0021 

0022 

20 

0023 

IS 

0024 

0023 

002S 

18 

0027 

0028 

0029 

17 

0030 

0031 

0032 

99 

0033 

0034 

0033 

003S 

0037 

0038 

0039 

0040 

0041 

0042 

30 

0043 

0044 

0043 

004  S 

0047 

0048 

PROGRAM  SREGR 
REAL  HSE , HSR 

DOUBLE  PRECISION  X , Y, SUHX, SUH Y, SUHX2 , SUHY2, SUMXY , R .  BO  , 
IBl.DEN.XN.SX.SY.SXY.SSTO.SSE.MSE.MSR.SBO.SBi 
DIMENSION  IB(  144  >,  IBUF<  128  >.  HAHE(  3  >,  IFHTC  20  > 

URI TEC  1. 10) 

FORHATC ’SIMPLE  REGRESSION.  Y-BO  ♦  B1*X"> 

URI  TEC  1.11) 

FORMAT C "ENTER  NAME  OF  FILE  FROM  DA30") 

READC l .  12  >  NAME 
FORMAT C  3A2  > 

URITEC 1.13) 

FORMAT  < " ENTER  FORMAT  OF  DATA") 

READC 1.14)  IFMT 
F0RNATC20A2 ) 

CALL  OPENCIB, I ER . NAME , 3 . 0 . -2 , 128) 

IFC  IER  CE  .0  >  GO  TO  20 
URITEC  1.  IS)  !<  AME,  I  ER 

F0RMATC3A2. "FAILED  TO  OPEN  ,  IER  ■  ".IS) 

STOP  13 
URITEC  1.  IS) 

FORMATC  "EHTt:;;  l  FOR  PRINTOUT  OF  RAU  DATA.  ELSE  ENTER  O') 
READC 1 . *  )  I P TO 
URITEC 1,18) 

FORMATC "EHTER  1  FOR  CRT  DISPLAY,  S  FOR  LI NEPRI NTER"  ) 
READC 1 < • )  I  UN  I T 
URITEC 1. 17) 

FORMAT  C  *  ENTER  IN  NUMBER  OF  OBSERVATIONS") 

READC 1 , »  )  N 

IFC  IPTO.EO.  1)  URITECIUNIT.99) 

FORMATC"  RAU  ’'AT A  "7,"  X  Y  •/> 

DO  30  I-1,N 

CALL  RCADFC IB  IER.  IBUF) 

CALL  CODE 

READC IBUF, IFMT >  X,Y 

IFC IPTO. EQ. i >  URITEC IUMIT, IFMT)  X.Y 

SUHX-SUHX+X 

SUHY-SUMY+Y 

SUHX2-8UHX2+X*X 

SUMY2“SUMY2*Y*Y 

SUMXY-SUHXY+XAY 

XN-N 

DEN«XNoSUHX2-SUHX»$UNX 

9 0* C  jUMY«SUMX2-SUMX*8UMXY)/DEN 

B  1  *C XNaSUHXY- SUHX* SUMY >/ DEN 

XBAR-SUHX/XN 

YBAR»SUHY/XN 
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0049  SXY»SUHXY-SUMX«SUHY/XN 

0050  SX"SUHX2-SUNX*SUNX/XN 

0051  SY«SUHY2-SUNY*SUHY/XN 

0052  R»SXY/OSaRT<SX*SY) 

0053  R»SXY/0Sa«T<8X*8Y) 

0054  SST0*SUHY2-XH*YBAR*YBAR 

0055  8SE*SUMY2-B0*SUHY-B1*SUKXY 

0054  M  SR  ■  SS  TO  -  SS  E 

0057  MSE»SSE/( XH-2  .  > 

0058  F >HSR/HSE 

0059  DF1-1 

00(0  DF2-M-2 

0041  CALL  FPR08<  F,  DF1  ,DF2,  2,  P  ) 

0042  SB0-DSQRT<NSE*(1 ./XH>XBAR«XBAR/3X  >  > 

0043  SBl»DSaRT(MSE/SX*XN  > 

0(14  U R I T E<  IUHIT.190)  XBAR.YBAR 

0045  190  FORMAT  <  //  ,  "  XBAR  ■  B,F10.4.*  YBAR  -  ",F10.4,//> 

0044  VRI  TE( IUN  IT  ,  908 )  80,01 

0047  908  FORMAT  <  *  BO  •  ",F14.8,/,"  81  ■  «,Fl4.8/> 

0048  «RITE< IUH1T, 100) 

0  04  9  100  FORM AT<// “SOURCE  ", 0X,  "SS  " ,  10X,"DF",10X,  "MS  "  ,  1  OX ,  “F“,  10X, 

0070  C“P<F)“/) 

0071  DF3-DF1+DF2 

0072  SSR-HSR 

0073  8RITE<  IUH IT , 1 1 0  )  8SR, DF 1 , M8R , F, P, SSE , 0F2 , MSE , 3ST0 , DF3 

0074  110  FORMATC"  MODEL ■ , 5X , F l 0 . 4 , 3 X , F 5 . 0 , 2 ( 3X , F 1 0 . 4 > , 3X , F 1 0 . 4 , /"  ERROR" 

0075  $,5X,F10.4»3X,F5.0,3X,F10.4,/"  TOTAL" , 5X , F 10 . 4 , 3X , F5 . 0 > 

0074  MRITE< IUNIT, 120)  R,S0O, SB1 

0077  120  FORMAT*//, "  R*  ",F10.4,/"  STANDARD  ERROR  OF  80  -  ",F10.5,/, 

0078  $"  STAMOARD  ERROR  OF  B1  -  ",F10.5> 

0079  CALL  CLOSE*  IB  ) 

0080  END 

0081  ENDS 
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SRM30  (Correlation  Matrix) 

Purpose : 

This  program  creates  a  correlation  matrix  from  raw  data.  The  matrix 

is  required  for  the  factor  analysis  (FATAA)  and  multiple  regression 

(MRMAIN)  programs. 

User  Considerations  and  Procedures: 

1.  A  matrix  data  file  must  be  created  with  n  point  per  record. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

3.  The  correlation  matrix  can  be  saved  in  the  file  SRDATA.  This 
matrix  is  necessary  for  FATAA  and/or  MRMAIN.  To  save  this  matrix, 
enter  1  for  yes,  0  for  no. 

4.  Parameters  required: 


a . 

number  of  variables  (maximum  30) 

b. 

name,  format,  and  record  length  of 

da  ta 

file  (see  DA30) 

c , 

number  of  subjects  (maximum  3 2 7*o 7 ) 

d  . 

names  of  the  n  variables  (maximum 
name  per  1 i ne) 

8  characters  per  name,  one 

e . 

scratch  file  name  -  do  not  use  the 
is  a  working  file  and  is  destroyed 

same 

upon 

SCRTCH.  This  file 
completion  of  SRM30. 

f . 

number  of  variables  per  line  for  output 

Printout  gives: 

a . 

number  of  variables 

b . 

number  of  subjects 

c . 

two-tailed  significance  level 

d. 

X,  SD,  name  of  each  variable 

e . 

correlation  matrix 
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Comments : 


Whenever  the  option  to  save  the  correlation  matrix  is  specified, 
the  previous  content  in  the  SRDATA  file  is  destroyed.  Therefore, 

FATAA  and/or  MRMAIN  should  be  run  before  using  SRM30  again  in  order 
to  preserve  the  data  files.  If  this  cannot  be  done,  save  the  con¬ 
tents  of  SRDATA  in  another  file.  It  will  be  necessary  to  dump  the 
preserved  data  file  into  SRDATA  before  FATAA  and/or  MRMAIN  analyses 
are  done. 

Test  Data: 

This  program  was  tested  using  data  presented  on  the  next  page.  The 
a. curacy  of  this  program  is  less  than  that  obtained  by  the  Statistical 
Analysis  System.  The  data  analysis  output  is  only  accurate  to  six 
digit  places  instead  of  ten  digits. 
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Variables 


Subject 

1 

2 

3 

4 

5 

6 

7 

8 

0001 

24.00 

81  .00 

992.00 

1024.0 

978.00 

1101.0 

938.00 

1120.0 

0002 

25.00 

22.00 

181.00 

310.00 

293-00 

346.00 

188.00 

166.00 

0003 

27.00 

57.00 

124.00 

172.00 

166.00 

491.00 

154.00 

83.00 

0004 

29.00 

36.00 

553.00 

719.00 

605.00 

833.00 

585.00 

346.00 

0005 

30.00 

54.00 

1046.0 

2221  .0 

1841  .0 

2656.0 

1062.0 

1030.0 

0006 

31.00 

25.00 

322.00 

522.00 

402.00 

676.00 

261 .00 

379.00 

0007 

32.00 

78.00 

833.00 

364.00 

222.00 

433.00 

1014.0 

584.00 

0008 

35.00 

80.00 

575.00 

405.00 

456.00 

320.00 

789.00 

320.00 

0009 

36.00 

30.00 

835.00 

81 1 .00 

716.00 

824.00 

735-00 

975.00 

0010 

37.00 

80.00 

1001.0 

166.00 

179-00 

154.00 

907.00 

1065.0 

001 1 

37.00 

57.00 

1 4 1  8 .  C 

1706.0 

1656.0 

1759.0 

1024.0 

219.00 

0012 

45.00 

74.00 

531  .00 

503.00 

581 .00 

593.00 

481 .00 

593.00 

0013 

77.00 

66.00 

218.00 

637.00 

681 .00 

591 .00 

300.00 

201  .00 

0014 

80.00 

47.00 

133-00 

109-00 

112.00 

106.00 

166.00 

108.00 

0015 

80.00 

80.00 

74.00 

100.00 

115.00 

90.00 

79.00 

68.00 

0016 

80.00 

74.00 

550.00 

322.00 

422.00 

204.00 

600.00 

400.00 

0017 

18.00 

61  .00 

72.00 

429.00 

456.00 

411.00 

405.00 

856.00 

0018 

19-00 

18.00 

67.00 

760.00 

856.00 

509.00 

966.00 

3216.0 

0019 

20.00 

80.00 

173.00 

434.00 

311.00 

51 1 .00 

103-00 

139.00 

0020 

20.00 

15.00 

209.00 

422.00 

573-00 

250.00 

230.00 

110.00 

0021 

22.00 

29.00 

18.00 

1024.0 

1114.0 

853.00 

687.00 

671 .00 

0022 

22.00 

56.00 

98.00 

267.00 

229.00 

341 .00 

206.00 

106.00 

0023 

22.00 

7.00 

21.00 

752.00 

795-00 

491 .00 

1252.0 

1308.0 

0024 

24.00 

14.00 

292.00 

1312.0 

1324.0 

1296.0 

1  342.0 

1851  .0 

0021. 

80.00 

51  .00 

116.00 

777.00 

1034.0 

548.00 

880.00 

952.00 

0026 

74.00 

51  .00 

13-00 

392.00 

390.00 

394.00 

243.00 

265.00 

0027 

64.00 

46.00 

19.00 

318.00 

292.00 

348.00 

156.00 

134.00 

002ti 

60.00 

37.00 

42.00 

703.00 

787.00 

578.00 

142.00 

257.00 

0029 

59.00 

18.00 

345.00 

899-00 

778.00 

1141.0 

424.00 

41 1 .00 

0030 

54.00 

14.00 

49.00 

968.00 

747.00 

1521 .0 

925.00 

85” . 00 

0031 

54.00 

71  .00 

16.00 

503.00 

1*21  .00 

964.00 

275.00 

226.00 

0032 

0033 

0034 

5!  .00 

53-00 

1  5.00 

198.00 

201 .00 

193.00 

591 .00 

236.00 
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RU.SRM30 

SRMAIN30 

ENTER  #  DATA  VARIABLES: 

3 

ENTER.  INPUT  FILE  NAME: 

# FATAA 

ENTER  INPUT  DATA  FORMAT  (SUBJ  DATA  ACROSS)- 
(8(2X,F6.2) ) 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
64 

ENTER  §  SS: 

32 

DESIRE  TO  SAVE  OUTPUT  FOR  MR?  (1-YES,  0=NO) : 

1 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT: 

6 

ENTER  VARIABLE  NAMES  (MAX  8  CHARACTERS  EACH): 

A 

B 

C 

D 

E 

F 

G 

H 

ENTER  NAME  OF  SCRATCH  FILE. 

IF  YOU  ARE  CONSIDERING  NAMING  YOUR  SCRATCH  FILE  ' SCRATCH' 
PLEASE  NOTE  THAT  THE  PRINCIPAL  FACTORS  PROGRAM  FATAA 
ESTABLISHES  A  FILE  WITH  SUCH  A  NAME  FOR  JSE  IN  THAT  PARTI¬ 
CULAR  PROGRAM.  IN  ORDER  TO  SAVE  YOURSELF  SOME  TIME  OR  TO 
AVOID  ERRORS  (IF  YOU  INTEND  TO  USE  FATAA)  IT  IS  TO  YO'JR 
BENEFIT  NOT  TO  NAME  THIS  FILE  'SCRATCH.1 
SCRATCH  FILE  NAME  = 

HELLO 

ENTER  §  VBS.  PER  PAGE  FOR  OUTPUT: 

8 


SRM30  IS  NOW  FINISHED 
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Ln  •vO  r^.  co 


NUMBER  OF  VARIABLES 
NUMBER  OF  SUBJECTS 


8 

32 


two-tailed  significance  levels 

p  -  .050  P  -  .Oio  P  =  .005  P  -  001 

•29635  .35203  .46338  .59090 


VB  MEAN  SO 

1  42.750  21.350  A 

2  48.812  23.575  B 

3  342.375  374.970  C 

632.781  457.059  D 

5  616.656  422.742  E 

6  672.687  534.885  F 

7  565.875  370.204  G 

8  601.625  636.181  H 


1  2 


1 .0000 

.230) 

.2301 

1.0000 

-.2057 

.3379 

1 

-.2388 

-.2689 

-.2014 

-.2920 

-.2070 

-.1948 

-.3045 

-.16  90 

-.3451 

-.3307 

3 

4 

5 

.2057 

-.2388 

-  2014 

.3379 

-.2689 

-.2920 

.0000 

.4819 

.4241 

.4819 

1 .0000 

.9689 

.4241 

•  9689 

1.0000 

.4659 

•  9375 

.8408 

.4920 

.6105 

.6300 

.0846 

.3755 

.428! 

6  7.8 

-.2070  -.3045  -.3451 

-.1948  -.1690  -.3307 

.4659  .4920  .0846 

■9375  .6105  .3755 

.8408  .6300  .4281 

1  .0000  .4869  .2326 

.4869  1.0000  .6872 

.2326  .6872  1.0000 
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■ SRM3 0  T-00004  13  UN  CR00002  USING  00023  BLKS  R-0139 
000 i  FTH4 

0002  PROGRAM  SRN30 

0003  INTEGER  XNAME 

0004  DOUBLE  PRECISION  XBAR! 30  >,  SI G! 3A  > ,  R!  30  >  60  ),  X!  30  > 

0003  DOUBLE  PRECISION  VAR 

0006  DIMENSION  I  B!  272  ),  i  C!  272  >,  ID!  272  > ,  IDUF!  236  > 

0007  0  IN E NS  ION  I  SI  ZE!  3!  ) »  1  A!  3  )  ,  NAHA<  3  >,  NANB<  3  > 

0008  DIMENSION  XNAME!  <0 , 4 ) , I NFI LE C 3  ) , I TMT < 20  ) .  ISC TCH< 3 > 

0003  COMMON  X 8 AR , S I G , R , X , V AR 

0010  DATA  I A72HSR, 2HDA, 2HTA/ 

0011  DATA  NAMA/2HMR,2HM3, 1H07 

0012  DATA  NAMB/2HFAi2HTA< 1  HA/ 

4011  WRITE!  1,  4400) 

001'*  <*  *  00  FORMAT  <  'aSRHAINSO'  ) 

0013  WRITE!  1 l,  440  1  ) 

0016  4401  FORMAT  <  "aENTER  I  DATA  VARIABLES!  ■> 

0017  READ( 1  *  *  )  L 

0018  WRITE! 1, 4402) 

0013  4402  FORMAT  <  * AENTER  INPUT  FILE  NAME:'  ) 

0020  READ< 1 ,2  >IHFILE 

0021  2  FQRMAT<3A2> 

0022  WRITE! 1 »  4406) 

0023  4406  FORMAT  <  RENTER  INPUT  DATA  FORMAT  (SUBJ  DATA  ACROSS)!"  ) 

0024  READ! 1 .231 )IFMT 

0023  231  F  ORHAT<  2  0 A2  > 

0026  URITE<  1 ,  88) 

0027  38  FORMAT!"  ENTER  THE  RECORD  LENGTH  AS  IN  DA30") 

0028  READ! 1 , *  )LEHGTH 

0023  LEN-LEHGTH72 

0030  IF!  !  LEN*2  ).  HE  .  LENGTH)  LEN-LEH  +  l 

0031  LENGTH-LEN 

0032  IDCBS-LENGTH 

0033  IF( LENGTH .LT. 144  )  IDCBS-144 

0034  WRITE!  1*  4403) 

0033  4403  FORMAT  <  ’aENTER  t  SS :  •> 

0036  READ!!,*)  KNT 

0037  WRITE! 1- 4404) 

0038  4404  FORMAT  !  "aDESIRE  TO  SAVE  OUTPUT  FOR  MR?  !1»YES;  0*N0): 

0033  READ! 1 # *  )  NPCH 

0040  25  WRITE! 1. 4403) 

0041  4403  FORMAT  !  "aEHTER  l  FOR  CRT  OUTPUT  ,  6  FOR  LPT.1  -) 

0  04  2  R  EA  D ! I / *  >  I  UN  IT 

0043  IF! IUN IT . HE . 1 . AND. IUHIT . HE . 6 >G0  TO  23 

0044  IF! NPCH. LE. 0)G0  TO  27 

0043  27  CALL  0  PE N! I  8 , I ER , I N F I LE , 3 , 0 , - 2 ,  I  DC 8S  ) 

0046  IF! IER  GE .0  >  GO  TO  800 

0047  WRITE! 1/801  )  INFILE, IER 

0048  301  FORMAT!*  NO  OPEH  DATA  FILE  *,3A2,"  IER  *  *,I3> 

0043  STOP  701 
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0050 

800 

00  3  K-l , 30 

0051 

XBAR^K  )*0 

0052 

SIGOO-O 

0033 

00  273  1-1,4 

0054 

273 

XNAMEC  K,  I  )-0 

0033 

00  5  J«l , 60 

0056 

5 

RCK , J  >*0 

0057 

URI  TEC  1,  4407) 

0058 

4407 

FORMAT  <  "*£HTER  VARIABLE  HANES  C  MAX  8 

CHARACTERS  EACH):  ■  ) 

0059 

00  19  I»1,L 

0  08  0 

READC  1,4  XXHAMEC  I ,  J  >,  J»  1 , 4  > 

0081 

4 

FOR M ATC  4  A2 ) 

0082 

19 

CONTINUE 

0083 

NS"0 

0084 

URITEC  1,  4408) 

0  083 

4408 

FORMAT  c  •♦ENTER  mane  OF  SCRATCH  FILE." 

) 

00.8 

URITEC  1-  4409  ) 

0087 

4409 

FORMAT  C " I F  YOU  ARE  CONSIOERING  NAMING 

YOUR  SCRATCH  FILE", 

0088 

1"  'SCRATCH  ") 

0089 

URITEC  1,4410) 

0070 

4410 

FORMATC "PLEASE  NOTE  THAT  THE  PRINCIPAL 

FACTORS  PROGRAM  FAT AA"  ) 

007  1 

URITEC  1,4411) 

0072 

4411 

FORMAT  <"  ESTABLISHES  A  FILE  UITH  OUCH 

A  NAME  FOR  USE", 

0073 

2 " I N  THAT  PAR-") 

0074 

URITEC  1,  4412) 

0073 

M12 

FORMATC"  TICULAR  PROGRAM  IN  ORDER  TO  SAVE  YOURSELF  SOME  TIME") 

0078 

URITEC  1,4413) 

007  7 

4413 

FORMAT  C"  OR  TO  AVOID  ERRORS  CIF  YOU  IN 

TEND  TO  I'SF  S'tAA  >  I  J-  > 

0078 

URI  TEC  1,4414) 

0079 

4414 

FORMATC"  IS  TO  YOUR  BENEFIT  HOT  TO  NAME 

THIS  FILE  ' SCRATCH '  .  ■  > 

0080 

URITEC 1, 4413) 

0081 

44  15 

FORMAT  C  "  SCRATCH  HLE  NAME-  *  ) 

0082 

READC 1,2)  ISCTCH 

0083 

IS  12 EC  2)-LEMGTH 

0084 

X3U-KNT 

0083 

SIZE-LENGTH 

0088 

SI2E«XSU*SI2E7128.  v  1. 

0087 

ISIZEC 1 >«SIZE 

0088 

CALL  CREATC IC ,  IER,  ISCTCH, I  SIZE, 2, 0,  -  2,  I0C8S  ) 

0089 

IFC  IER  G£  .0  )  GO  TO  810 

0090 

URITEC  1, 809  )  ISCTCH, IER 

0  09  1 

30  9 

FORMATC”  NO  OPEN  SCRATCH  FILE  ",3A2," 

IER  -  *  ,  I  5  ) 

0092 

CALL  CLOSEC  18  > 

0093 

STOP  702 

0094 

310 

00  11  J  M -  1 , KK  T 

0093 

CALL  REAOFC IB, IER, IDUF) 

0098 

CALL  CODE 

0097 

READC  IDUF,  IFMT  X  XC  I  ),  I»  1  ,  L  ) 

0098 

NS-HS+  l 

0099 

00  7  J  * l , L 

0100 

7 

XBARC  J  >-XBAftC  J  >+XC  4  ) 

010  1 

CALL  CODE 

0  102 

URITEC  IOUF,  IFMT)CX<  J  ),  J-l,  L7 

0103 

CALL  URI TFC  IC ,  IER,  IOUF ) 

0104 

11 

CONTINUE 

0105 

CALL  CLOSEC IC ' 

0  106 

00  9  J ■ l , L 
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0107 

9 

X  BA  R !  J  >«X  BAR!  J  )/N8 

0  108 

CALL  OPEN! I C,  I  ER  ! ,  ISCTCH,3,0, -2 , IDC83) 

0109 

IF!  IER1.GE.  0)  60  TO  820 

0  110 

WRITE!  1,801)  1SCTCH,  I  FR  1 

0111 

CALL  CLOSE! 18 ) 

0112 

STOP  703 

0113 

920 

DO  1400  JM»1,NS 

0114 

CALL  READF!  IC,  IER,  IDUF) 

Oils 

CALL  CODE 

0116 

READ!  I  DOF  /  IFNT  XX!  J  >.  J-l  ,L  > 

0117 

DO  1 400  4 -l ,L 

0118 

DO  1400  K-l/L 

0119 

1400 

R<J,K>“R!J,K)-»!X!J  >-XBAR!J > ) *<  X( K )-X8ftR(K>) 

0120 

CALL  CLOSE! IC  > 

0121 

DO  1401  J»l,L 

0122 

VAR«R<  J  ,  J  VMS 

0123 

I F! V AR . EQ .0 ,0  >G0  TO  1408 

0124 

SIC! J  )»DSQRT! VAR ) 

0125 

CO  TO  1401 

0126 

1408 

SIC! J  )«0 . 0 

0127 

1401 

CONTINUE 

0128 

DO  1402  J-l,L 

0129 

DO  1402  K«il,L 

0130 

R!  J  ,  K )*3! J , K  )/NS 

0131 

IF!SIG! J  >*SIC!K>  HE  .0 .0  )G0  TO  1406 

0132 

R< J , K)-0 

0133 

GC  TO  1407 

0134 

1406 

R!'J,!ObR!J,K)/!SIC(J)*$IG!K)> 

0133 

1407 

R!K, J)«R! J,K) 

0136 

1402 

CONTINUE 

0137 

WRITE! I  UN  I T ,98 >L,NS 

0138 

90 

F ORNAT <  *  NUMBER  OF  VARIABLES  -  ",13/ 

0139 

f  NUMBER  OF  SU8JECTS  *,I3) 

0  140 

SS-NS 

0141 

SE"  l  .  /SORT! SS”  1  ) 

0142 

S  A* 1  .  63*SE 

0143 

S B* 1  .  96*SE 

0144 

SC*2  .  38*SE 

0145 

SD-3 . 29*3E 

0146 

IF! NPCH. LE. 0>G0  TO  91 

0147 

CALL  OPEN!  ID,  IER, IA, 3,0  , -2,236  ) 

0148 

IF<  IER  .GE  .0  )  GO  TO  840 

0149 

WRITE! 1,801)  IA, IER 

0130 

CALL  CLOSE! 18  ) 

0151 

CALL  CLOSE! IC  ) 

0132 

STOP  740 

0  153 

840 

DO  802  J  2 ■  1 , 6 0 

0134 

CALL  COOE 

0133 

WRITE! IDUF,94)!R!41,J2),J1"1 ,30  ) 

0136 

94 

FORMAT! 30! 2X, F10 .4  )  > 

0137 

CALL  WRITF! ID, IER, IDUF) 

0138 

802 

CONTINUE 

0  139 

CALL  CODE 

0160 

WRITE! IDUF, 94  )  XBAR 

0161 

CALL  WRITF! ID , IER,  I DUF  ) 

0162 

CALL  CODE 

0163 

8 R7  TE< I DUF , 94  )  SIC 

0  164 

C ALL  8RITF<  13,  IER ,  IDUF) 

0163 

CALI  CODE 

0166 

URI  r  E<  IDUF,  808  <  <  XNAME<  1 1  , 1  2  ),  12 »  1 .  4  ) ,  1 1  »1 , 30  ) 

v  167 

CALL  y R I T F(  10,  IER,  IOUF) 

0  168 

909 

F0RMAT(30(4X, 4A2  )> 

0  16  8 

91 

)RITE<  IUKIT, 13  ) 

0170 

13 

FORM AT<  7  "  VB  .  MEAN  SO") 

0171 

DO  14  I  ■  1  ,  L 

017? 

‘4 

«RITE< IUHIT, 15>I,XBAR<I >,SIC< 1>,<XNAME< I, J  >, J-l, 4  > 

0173 

15 

FORM AT (9X, I 3 , 2F1 0  3, 10X/4A2) 

0174 

100 

W  RI  TE<  1,4416) 

0175 

4416 

FORMAT  <  ■  ■  > 

0  17  6 

101 

VRITE< 1,4417) 

0  17  7 

4417 

FORMAT  <  * 4EHTER  1  VB3 .  PER  PACE  FOR  OUTPUT:  * > 

0  17  3 

READU,*  )  NPACE 

0179 

I F<  NPACE . GT . L  )C0  TO  101 

018  0 

MPX-HP AGE-1 

0181 

k;*u  <l~i  >7npage+ i >*npage 

0182 

00  995  M-NP AGE , KM, NPACE 

0193 

Lh-M-HPX 

0194 

I F< M-KM)9 97,996, 997 

0185 

996 

M-L 

0186 

997 

yRITE(  IUHIT,910)<  I  ,  1-1.6,  M) 

0187 

910 

F0RMATC/7X,  10<  IIO.  IX)  ) 

0188 

00  995  I  =*  1 ,  L 

0199 

995 

yRlTE<  IUHIT, 930)1, (R<  I,  J),J»LA,M> 

0190 

930 

FORM  AT  (15, F13. 4,  1X,9(F10.4,IX>) 

0191 

931 

y RI TE< 1, 4418) 

0192 

4418 

F0RHAT<7/7,  *S RM3 0  IS  MOM  FINISHED") 

0193 

CCLL  CLOSE<  IB  > 

0194 

CAL'  CLOSE!  IC  ) 

0195 

CALL  CLOSE!  ID  ) 

0196 

CALL  PURGE< ID, IER, ISCTCH  ) 

0197 

STOP 

0198 

END 

0199 

END* 

MRMAIN  (Multiple  Regression  Analysis) 
Purpose : 


This  program  performs  a  multiple  regression  ana  1  ys  i  s,  ar  r  i  v  i  ng  at 
a  final  equation  using  a  forward  stepwise  procedure  based  on  a 
maximum  R-squared  and  F-test  criteria. 

Mathematical  Model: 


The  model  for  the  regression  analysis  is: 

Y.  *  Bn  +  B ,  X  .  .  +  B,X,.  +  ...  B.X..  +  E. 
i  0  111  22i  jji  i 

where : 


Y. 

i 

X  .  . 

J  ' 
B. 

J 

E. 


=  i_tb  observat  ion  of  dependent  variables 
=  i£h_  observat  i  on  of  the  jth_  independent  variable 
»  regression  coefficient 
*  normally  distributed  error  term 


User  Considerations  and  Procedures: 

1.  Program  requires  input  from  SRM30.  MRMAIN  reads  the  file 

SRDATA  created  by  SRM30  to  receive  the  correlation  matrix, 

variably  means,  standard  deviation,  and  variable  names. 

2.  Initial  options  and  parameters: 

a.  option  for  device  output;  enter  6  for  line  printer  or 
1  for  CRT 

b.  enter  number  of  variables  from  SRM30  (maximum  30) 

c.  enter  the  number  of  subjects  on  which  correlation  matrix 
i s  based 

d.  enter  number  of  the  dependent  variable  (as  entered  in  SRM30) 

e.  enter  minimum  acceptable  F  for  inclusion  in  equation  - 
standard  or  typical  value  is  1 

f.  enter  tne  number  of  va  lies  excluded  from  model,  and  those 
forced  in  model.  If  none  are  excluded,  enter  0.  If  none 
are  forced,  enter  0 
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1)  if  the  number  excluded  is  not  0,  program  asks  which 
variables  are  to  be  excluded.  Enter  the  variable 
numbers  of  those  to  be  excluded.  These  can  be  entered 
in  any  order  separated  by  commas. 

2)  If  the  number  forced  is  not  0,  program  asks  how  the  vari¬ 
ables  ire  to  be  forced  in  the  equation.  Enter  the  variable 
numbers  of  the  forced  variables  in  the  order  they  are  to 

be  forced.  Separate  the  varables  numbers  by  commas.  (NOTE: 
forcing  variables  that  are  highly  correlated  to  each  other 
will  cause  stability  problems.) 


g.  enter  number  of  this  equation  -  enter  1,  usually 

h.  enter  number  of  additional  composites  desired 


i.  in  the  following  options,  enter  1  for  yes,  0  for  no: 


1) 

2) 

3) 

4) 

5) 


suppress  weight  reversals  (0  forces  B.J»0) 
multiply  weights  by  1000  J 

set  mean  of  predicted  scores  -  if  1,  program  then  asks  you 
to  enter  mean 

set  standard  delation  of  predicted  score  -  if  I,  program 
asks  you  to  enter  the  etar^ir..J.  deviation 

check  parameters,  entei  1  if  they  are  correct  or  0  to  restart 


v 


2.  Options  for  storing  data  in  order  to  plot  the  residuals:  Enter 
1  to  plot  residuals,  0  otherwise.  (NOTE:  If  1  is  entered  a 
scratch  tape  must  be  mounted.  Residuals  are  outputted  to  mag¬ 
netic  tape  as  Y-criterion,  Y-predicted  in  a  (2 (5X , FI  0 . 3) )  format. 
To  plot  residuals  run  the  program  RESID.  When  this  option  is 
used,  the  name  of  raw  data  file  and  format  of  file  is  required.) 


3 .  Pr i ntout  g i ves : 

a.  copy  of  desired  initial  options  and  parameters 

b.  listing  of  variable  names  and  corresponding  X,  and  standard 
devi at  ion 

c.  as  each  variable  is  entered  into  the  model  the  following 
information  is  given:  numer  entered,  variable  numbers, 
cumulative  multiple  R,  cumulative  multiple  R  increase  by 
this  variable,  R-square,  shrunken  R-squared,  F-value  for 
entering  into  model,  degrees  of  freedom  and  probability 
of  the  F-value,  and  name  of  variable  entered 
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Comments : 


after  each  vairable  is  entered,  the  following  information  is 
giver:  the  number  entered,  the  variable  number,  mean,  stan¬ 
dard  deviation,  2-weight,  raw  score  weight  (B.),  critical  R, 
2-weight  *  critical  R,  and  variable  name  ■* 

Bg  or  constant  is  printed  out  for  each  step 


The  scratch  file  is  automatically  purged  from  the  disc  at  end  of  the 
MRMAIN  run. 


Test  Data: 

This  program  was  tested  using  data  presented  below.  The  accuracy  of 
this  program  is  less  than  that  obtained  by  the  Statistical  Analysis 
System.  The  data  analysis  output  is  only  accurate  to  five  or  six 
digit  places  instead  of  ten  digits  except  when  variables  are  forced 
into  the  model  that  are  too  highly  correlated,  (i.e.,  >  .99)-  In 
chose  cases  accuracy  is  less  than  five  digit  places. 


Subject 

Independent  Variable 

Dependent  Variable 

1  2  3 

1 

19 

1 

1 

1 

2 

28 

2 

4. 

2 

3 

17 

1 

-1 

5 

4 

42 

3 

4 

5 

5 

24 

1 

2 

3 

6 

1 

-1 

-1 

-1 

7 

8 

-1 

2 

3 

8 

16 

0 

3 

-3 
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RU.MRMAIN 

:$V,4 

MRMAIN30 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT: 

6 

ENTER  4  VB*  IN  MATRIX  (MAX  30): 

4 

ENTER  4  SS  ON  WHICH  CORRELS  BASED: 

8 

ENTER  4  OF  CRIT  VARIABLE: 

1 

ENTER  MINIMUM  ACCEPTABLE  F  FOR  INCLUSION  IN  EQUATION: 

1 

ENTER  4  VBS  EXCLUDED,  S  4  V8S  FCRCFO- 

0,0 

ENTER  4  OF  THIS  EQUATION: 

1 

ENTER  4  OF  ADDITIONAL  COMPOSITES  DESIRED: 

0 

IN  THE  FOLLOWING  DIALOG,  1  -  YES,  0  -  NO 
SUPPRESS  WT  REVERSALS? 

I 

MULT  WTS  BY  10007 

0 

SET  MEAN  OF  PREDICTED  CORES? 

0 

SET  SD  OF  PREDICTED  SCORES? 

0 

SUPPRESS  ADDITIONAL  SHRUNKEN  R  ESTIMATES? 

0 

CHECK  ABOVE  PARAMETERS,  ENTER  1  TO  CONTINUE,  0  TO  RESTART 
1 

ENTER  NAME  OF  SCRATCH  FILE: 

TECH  1 

ENTER  1  TO  PLOT  RESIDUALS  (Y-PRED  VS  Y-OBS)  : 

1 

OUTPUT  FILE  FOR  RESIDUALS  IS  MAG  TAPE! 

ENTER  ,U\W  DATA  FILE  NAME: 

#MRM30 

ENTER  PAW  DATA  FORMAT: 

(4(4X,K10.4)) 

MRM30  FINISHED 
MRM30  ABORTED 
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•MkM30  T-00004  IS  ON  CR00002  USING  00040  81 KS  R-0323 
0001  FTH4 

0002  PROGRAM  MRM30 

0003  COMMON  I UNJ T . N IN C , I F I N. L . N . NC . F VAL . HEX . HP RC E . HTI ME , HRP T , 

0004  SNPOS.MULT, iCOM.TNN, TSIG.NSHR, AL.NPASS,  1 COHH . NF  A 

0005  COMMON  IRDF!L(3)>tRFHT<  20>.RDATA<  3  0) 

0006  1HTECER  RFMT< 20) . XNAME 

0007  COMMON  I  S  IZE<  2  >.  INF  ILE<  3  >,  IFMT<  20  > 

0009  COMMON  SCN<  30  >.  KFR  CE<  30  >,  9  T<  3  0  >.  KKX<  30  > 

0009  COMMON  X<60).NX<30> 

0010  COMMON  K< 30,60 >. SIG< 3  0). XBAR< 30  >, XHAHE< 30,4  ) 

0011  COMMON  IB<2?2 >. I8UFC236  ) 

0012  DIMENSION  !SRD<3) 

0013  DATA  ISRD/2MSR . 2HDA , 2HTA/ 

0014  1000  I  F<  NT  I ME  GT  .  1  )C0  TO  4000 

0013  3000  CALL  OPEH< IB. IER. ISRD.3, 0. -2. 236) 

0014  I F< IER .GE  .0  )  GO  TO  3010 

0017  4RI  TE<  1.4420)  IER 

0019  4420  FORMAT  (  "NO  OPEN  SROATA.  IER  -  “.15  ) 

0019  8T0P  4420 

0020  3010  URITE< IUNIT .3020) 

0021  3020  FORMATS"  INPUT  FILE:  SROATA' > 

0022  00  4421  IJ-1,60 

0023  CALL  REAOF<  IB.  IER.  IBUF) 

0024  CALL  COOE 

0023  READ( IBUF , 94  )  <  R<  J  I  .  I  J  >  .  J  I  •  l  .  30  > 

0026  94  FOR MAT<30<2X< F10.4>> 

0027  4421  CONTINUE 

0029  CALL  REAOF< IB. IER. IBUF) 

0029  CALL  COOE 

0030  REAO< IBUF.94)  X8AR 

0031  CALL  REAOF( IB. IER. IBUF) 

0032  CALL  COOE 

0033  READ< IBUF.94)  SIG 

0034  CALL  REAOFC  IB.  IER.  IBUF) 

0033  CALL  CODE 

0036  REAO< IBUF. 809  )  < < XN AHE<  II .  1 2 > . I  2- l  .  4  ) .  I  1 « 1 , 3 0  ) 

0037  80  B  F0RMAT<30<4X< 4A2 >) 

0039  CALL  CLOSE<  IB  ) 

0039  3130  I F<  NT  I  HE . CTO  )  GO  TO  4000 

0040  IFCNRPT.LE. 0)G0  TO  4000 

0041  NTIME-1 

0042  4000  CONTINUE 

0043  EUP-1 

0044  IG1-MFRCE 

0043  IG2>NFA 

0046  IG3«NEX 

0047  I F<  NTI ME  .  NE . I  )G0  TO  4080 

0049  MRI TE<  1 . 4430  ) 

0049  4430  FORMAT  <  ‘*EHTER  NAME  OF  SCRATCH  FILE!"  ) 

0050  READ<  1 .3071  HNFILE 
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0491 

I 31 ZE< 1 )  *  73 

0092 

I  8 1  2  E  C  2  )  ■  1 5  0 

0053 

CALL  CREAT< 18, IER, INFILE, I  SIZE, 2, 0,-2, 130  > 

0054 

IF<  IER  .GE  .0  >C0  TO  4030 

0099 

URIT£<  1,  4431  >  IER 

0099 

4431 

FORMAT  <  "HO  OPEN  SCRATCH  FILE,  IER  •  ",I9  > 

0097 

STOP  4431 

0098 

4030 

1F<  I  UNIT . EQ .9  >URIT£< IUMI T, 4040)  INF  ILE 

0099 

4040 

FORMATC  3CRATCH  FILE:  *,3A2> 

009  0 

CALL  CODE 

0091 

URI  T£<  I8UF,  22  >  X B A R 

0092 

22 

FORMAT ( 30F1 0 . 4 > 

0093 

CALL  URI  TF< 18, IER, IBUF> 

0094 

CALL  CODE 

0099 

URI TE( I8UF, 22  )  91G 

0099 

CALL  URITF< IB  ■ IER, IBUF) 

0097 

DO  4070  I >1 , 60 

0098 

CALL  CODE 

0099 

URITE<  IBUF,  22  >  <  R<  J  ,  I  > ,  J  ■  l  ,  3  0  > 

0070 

4070 

CALL  URI TF< IB,  IER,  IBUF) 

0071 

CALL  CLOSEC  IQ  ) 

0072 

4080 

I F< NTI HE . LT . 2  >G0  TO  4110 

0073 

CALL  0PEN<I9, IER, INFILE, 3, 0,-2, 150) 

0074 

I F<  IER  GE  .0  >G0  TO  4090 

0079 

URITE< 1, 4433)  IER 

0079 

4433 

FORMAT  <  "HO  RE-OPEN  SCRATCH  FILE,  IER  ■  -.13  ) 

0077 

STOP  4433 

0078 

4090 

CALL  REAOF< IB, IER, IBUF) 

0079 

CALL  CODE 

0080 

READ< IBUF, 22)  XBAR 

0081 

CALL  READFC IB, IER, IBUF) 

0082 

CALL  CODE 

0083 

REAO< IBUF, 22>  CIC 

0084 

DO  4100  I  *1,90 

0089 

CALL  READF< IB, IER, IBUF) 

0089 

CALL  CODE 

0087 

4100 

READ< IBUF ,22)  <R<J,I),J*1,30> 

0088 

41  10 

URI TE< IUH IT ,4120 ) 

0089 

4120 

FORMAT  <  14X,  *  VB.  MEAN  ST.  OEV.V/) 

0090 

KKM-NEX 

0091 

DO  4190  I ■  1  , L 

0092 

8GH<  I  )-R<  I,  NC  ) 

eo93 

IF< HEX .LE .0  )G0  TO  4140 

0094 

DO  4130  J  * l , N E X 

0099 

KKX  (  J  ) • H X <  J > 

0099 

NZ-HX<  J  ) 

0097 

I  F<  I  .  E(l  .  HZ  )C0  TO  4160 

0098 

4130 

CONTINUE 

0099 

4140 

URITEUUHIT,4190  >1  ,  XBARC  I  ),SIG(  I  >,  <XHAME<  I,  J  ),  J*i  ,4  > 

0100 

4190 

F0RMAT<14X,I3,3X,F10.3,5X,F103,5X,4A2> 

0101 

4190 

CONTINUE 

0102 

lF(TMH.GT.O.  )XBAR(HC)»TMN 

0103 

IF<TSIG.GT. 0.  )SIG(NC)*TSIG 

0104 

K*LM 

0109 

HT*2*L 

20g 


0106 

DO  4190  I ■«  *  NT 

010? 

00  4190 

0108 

N-J+L 

0109 

I F<  1-H  >4180-4170,4180 

OK  0 

4170 

R(  J  . I >■-  1  .  0 

0111 

CO  TO  4190 

0112 

4180 

R<J * I  )-0 

0113 

4190 

CONTINUE 

0114 

IF<  HEX  >4220*4220*  42000 

0113 

42000 

00  4210  4  *1  *  NEX 

0116 

HZ-MX<  J  > 

0117 

00  4210  l«l*L 

0118 

R<NZ*  I  >«0  . 

0119 

4210 

R(l, HZ  )■ 0 

012O 

4220 

AHA "0 . 

0121 

QLDR-0  . 

0122 

AN-N-1 

0123 

00  4230  I»1,L 

0124 

4' 30 

HX<  I  >«0 

0123 

HFR-1 

0126 

T8-8IG<NC  ) 

0127 

IF< HOLT. LE. 0>:0  TO  4240 

0128 

I F< TSIC. GT. 0.  )  HULT  *0 

0129 

4240 

I  F<  HULT.  GT.  0  )  T  S*  TS  *  1  0  00  . 

0130 

5000 

CONTINUE 

0131 

«RITE<  IU  MIT  *30  20  >NC  *  <  XNAHEC  NC  *  I  >,  1-1*4 

0132 

3020 

FORHAT< " 0  **  *  CRIT  V8  •**•*14,*)  **4A2* 

0133 

*•1  3 IGHA :  • <  F 1 0 . 3  > 

0134 

3030 

00  3060  I  «1  *  L 

0133 

IF<R(I* I >-.001 >3040,3040*5050 

0136 

3040 

X<I >-0. 

Oil? 

GO  TO  3060 

0118 

3030 

X<  1  >-s  R(  I  *  NC ) *  *2  VRC  I  *  l  > 

0119 

3060 

CONTINUE 

O140 

XCHC  >«0. 

0141 

IF<HFR.GT.NFRCEMO  TO  5070 

0142 

H-KFRCE<  HFR > 

0143 

HFR-HFR+l 

0144 

TEHP"X<  H > 

0143 

GO  TO  3  20 

9146 

3-''  >'0 

IF( HP08 .  ,.E. 0 )G0  TO  3090 

0147 

00  SOSO  1  ' *L 

0148 

TEHP*R<  I  *  N<-  >SGH<  l  ) 

0149 

I  F(  TEHP  .  LE.  0.  >X<  I  .'-0. 

9130 

3080 

CONTINUE 

0131 

309O 

TEHP«X< l > 

0132 

H  •! 

0133 

DO  3110  I  vK  L 

0134 

I  F<  X<  l  >-TI‘.HP>*;il0,3ilO*  3  100 

0133 

3100 

TENP«r< I > 

0136 

H-I 

4137 

51  10 

CONTINUE 

0138 

3120 

A  MA  *  AH  M+  X  . 

0139 

NFA-NFA-  1 

016O 

OFA* AN -AHA 

0161 

V-R<  NC , NC >- TE HP 

2  I  0 


■namyn  r- 


>,X8AR(MC> , TS 
•NErtH:  " ; F 1 0 . 3 . 


*162 

t  c/  u-  rt/i  i 

t  1  1  t  *  *  •  S\#*W*sSS*W*-W«  •  '* 

01(3 

3130 

FRAT  *1 000 

01(4 

AHA*L 

01(3 

50  TO  3150 

01(( 

3140 

FRAT*!  TEMP*  OF  A  >/V 

01(7 

IF<  MFA  .GE .0  >G0  T  0  5  130 

01(8 

IF! FRAT-FVAL) 6050, 6050, 5  150 

01(9 

3130 

IF<R!M,H  >  GT.  0 .001  >G0  TO  5160 

0170 

v«o . 

0171 

GO  TO  5170 

0172 

31(0 

V«1 . 7CQRT!  R  !  M  ,  M  >  > 

0173 

5170 

00  3180  I  *1  ,  NT 

617* 

3100 

X<  I  ) *R ! H  ,  I  )*V 

0173 

00  5190  1*1,1 

0174 

I F< X!  1  >.  EO.  0  >G0  TO  3190 

0177 

DO  3190  J  *1 ,NT 

0178 

IF<  X!  J  ).  EQ.  0,  )  GO  TO  5190 

0179 

R( I , J  )»R<  1 , J  >-X!  1  )*X( J  ) 

0180 

3190 

CONTINUE 

0181 

R<  H  ,  N ) *0 . 

0182 

RM3-R! . ^ , HC  ) 

0113 

RKK-RMS*!  AH/DFA  ) 

0184 

RSN-1 . -RKK 

0183 

IF!N$HR. GT. 0)G0  TO  52000 

0184 

RS83"I  .-RKK*<  1  .  +  <ALA  2.  *DFA>  >  > 

0187 

RS83-1  .  -RKK*!  ! AM*2  .  >7!  AH  +  1  .  )  >*! !  AH-l  .  )7!DFA-1 

)  ) 

0188 

IF<RSS3. GT. 0.  )RSS5-SQRT( RSS5  ) 

0189 

I F! RSS3 . GT . 0 .  )RSS3-SQRT< RSS3  ) 

0190 

32000 

IF!  RSH.GT .0 . >RSH-SQRT!RSH> 

0191 

RMS* l . -RMS 

0192 

RN-SQRT!  RMS ) 

0193 

(JP-RN-OLDR 

0194 

K-AHA 

0193 

NOF-OFA 

0194 

PB-l  .0 

0197 

CALL  FPROB! FRAT, PB , DFA, ZZ, PP > 

0198 

PP8* 1 . -PP 

0199 

EMP*EWP*PPB 

0200 

EUR* 1 . -EBP 

0201 

WRITE! IUNIT,6010  )M , NC , <  XNAMEC  NC , I  >,  1*1 , 4  ) 

0202 

4010 

FORMAT! "OVARIABLE  ADDED:  " , I 3 , • 1 !  C R I  T  .  IS  NO 

* , I 3 , 2X  <  4 A2 , "  > 

0203 

WRITE! IUNIT,6020 ) 

0204 

4020 

FORMAT!"  M .  V8.  CUM  MULT  R  INCREASE 

R-SQUARE"  , 

0203 

$•  3HRNKH  R  F-VALUE  DF-t  4 

PROB!  F> "  > 

0204 

WRIT  E!IUNIT,(030)K#N#RH, UP, RMS,RSH, FRAT, NDF,PP,!>!NAME!MiI>, 

0207 

CI-l , 4) 

0208 

4030 

FORMAT!"  ",  13, 2X, 13, 4<4X,F9. 6  ). FI  1  .  4 , 8  X  ,  I3<  ?X, F8 . 5, 5X  ,  4A2  > 

0209 

NINC-NINC+i 

0210 

OLDRvRM 

021 1 

MX!  M  )*  K 

0212 

KKH-KKM+l 

0213 

KKX! KKH ) ■  N 

0214 

NCK*L-K- 1 -HEX 

0213 

IF!  HSHR . GT . 0 )G0  TO  6050 

0214 

WRITE! IUMIT ,6040  >RSS3,RSS3,EWR 

0217 

6040 

FORMAT!"  "7"  CORRECTED  SHRUNKEN  R  ESTIMATES: 

* , 2  F  12  .  3  , 

0218 

("J  CUM  ERROR  PROB:  ",F10.67> 
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0  219 
4226 
6221 
4222 

6223 

6224 

6223 

6224 
6  22  ’ 
422k 
6229 

4236 
<231 
v  232 
0233 
6234 
4233 
6234 
6237 

4238 

4239 
6246 

6241 

6242 

6243 

6244 
6243 

6246 

6247 

6248 
4249 
6236 

4231 

4232 

4233 

4234 
4233 
6236 

4237 
6239 
6239 
4266 
6261 

6242 
6263 
4244 

6243 

4246 

4247 
6248 
6269 
4274 

6271 

6272 

4273 

4274 

6273 
6276 


6656  K-L+l 

60  6666  J-K.NT 
H-J-L 

6660  ¥T<  N  >-R!  HC,  J  ) 

TEMP-0  . 

NVBS-l  -1  -HEX 

IF!  NFA  .GEO  >CG  TO  6080 

IF< FRAT . GT. FVAL . AMO  N1NC  LT . MVBS  )G0  TO  6080 
£04^  MR1TE< IUN  IT  >6070) 

60.'<V  F0RMAT<’0  FINAL  EQUATION:  */> 

IF ?N-l 

6686  CON  1'  I  HUE 

60  <>160  J  •  l  <  L 
I  F<  NX!  J ) , LE  .  0  ) GO  TO  6100 
V-S I G<  HC  )  /S  I C  <  J  ) 

IF! T8IG. GT. 6.  >V«V/RH 
X!  J  >-WT<  J  >*  V 
I  F<  HUi  T.LE.  4)G0  TO  6090 
XKTP-X!J ) *  1 00 4  >0.  3 
KTP-XKT, 

X!  J >-KTf> 

6690  TENP-TEMr +X< J >*X8AR< J > 

6100  CONT  IN'1* 

Z-XBA'<!NC  >-TEHP 
WRITE!  IUNIT.6110  ) 

6110  FORMAT!*  N  V8 .  MEAH  SIGMA  Z-UEIGHT’, 

4*  RAW  SCR  WT  CRIT  R  Z-WT*CRIT  RV> 

DO  6136  I  *  1  <  L 
PROD-SGN!  I  )*WT(  I  ) 

IF!  HX!  I  >>61  30,61  30,61  20 

6120  WRITE!  IUM  IT  .  6  1  34  )NX<  I  > ,  I  .  XBAR!  I  ) ,  S  I  G<  I  > ,  W  T<  I  >,  X!  I  >,  SGM<  I  >,  PROD, 
4!XHANE(I.<J).J-l<4) 

6130  CONTINUE 

WRITE!  IUNIT  <6140  )Z 

6140  FORMAT!*  COMSTANT:  ’,F10.3> 

6130  FOR  HAT<2X<I3<  1 4.  4X  .  FI  0  .  3  <  3X<  F  10 .3  •  "“X  .  F  9  .5, FIT  $ .  2  <  3  X  <  F9.  5> 

43 X < 4  A2  ) 

WRITE!  IUM  I  T  <6160  ) 

6160  FORMAT!*  *> 

6161  GO  TO  6168 
63432  I  PL  * 0 

WRITE!  1, 4500) 

4300  FORMAT  <  'ENTER  1  TO  PLOT  RESIDUALS  (Y-PREO  VS  Y~C3S>:  ") 

READ! I . * )  1PL 

IF!  I  PL  .  EQ  .  0  )G0  TO  7000 
WRITE!  1 , 430  1  > 

4301  FORMAT!*  OUTPUT  FILE  FOR  RESIDUALS  IS  11AC  TAPEUA’) 

6162  WRITE! 1. 4303) 

4303  FORMAT  <  "ENTER  RAW  Dfti  A  FILE  NAME:’ 

READ  <  1.3071  >IR0FIL 

WRITE!  1. 4304  ) 

4304  FORMAT  <  ’ENTER  RAW  DATA  FORMAT:’  > 

READ!  1  <3</70  )IRFHT 

CALL  OP£N!IBi IER<IRDFIL<3< 0.-2. 236) 

IF!  IER  GE  .0  )G0  TO  6143 
WRITE!  1. 4303)  IER 

4303  FORMAT  <  ’NO  OPEN  RAW  DATA  FILE.  I FR  -  ’.13  ) 

STOP 
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0277 

4143 

WRITE<  IUNIT,41433)IR0FIL,IRFMT 

♦  178 

WRI  TE( IUHIT, 41434) 

♦  279 

41433 

FORMAT  < ■ 0  INPUT  RAW  DATA  FILE:  *,3A2/"  INPUT  DATA  FORMAT 

♦  210 

♦  20A2  > 

♦  281 

41434 

FORM AT <  *  RESIDUALS  OUTPUT  TO  TAPE:  *  ,  /  "  (CRITERION,  - 

♦  282 

♦  Y-PREDI  C  TED  2C3X#Fli>.3>  FORMAT)-) 

♦  283 

DO  4144  I  1-1. N 

♦  284 

YP-Z 

♦  213 

CALL  REhDF( IB. IER. IBUF) 

♦  284 

CALL  CODE 

♦  287 

READ<  I8UF.  IRFHTXRDATA(  12).  I2-1.L  ) 

♦  288 

DO  4144  12-1, L 

♦  289 

IF<  NX<  12  >  GT.  0  >YP-YP+X<  I2)*RDATA<  12) 

♦  290 

4144 

CONTINUE 

♦  291 

WRITE<  8, 8 183 )RDATA(  NC  >, VP 

♦  292 

8185 

rQRNAT(2(  5X.F10, 3)  ) 

♦  293 

4144 

CONTINUE 

0294 

4147 

CALL  CLOS E< IB ) 

♦  293 

EHDFILE  8 

♦  294 

GO  TO  7000 

♦  29  7 

4148 

I  FI H-0 

029  b 

IF<  NCvC  LE  .0  )C0  TO  4170 

♦  299 

IF<  FRAT.  GT.  FVADGO  TO  5030 

0390 

I F<  NFA . G£ . 0 )GQ  TO  5030 

0301 

4170 

I F<  HRPT . LE . 0 ) GO  TO  62000 

♦  302 

NPASS-NPASS+1 

♦  303 

IF(KKN.LE.O)  GO  TO  3447 

0304 

DO  4180  I » 1 , K  KH 

♦  303 

41  80 

NX<  I  >-KKX<  I  ' 

♦  304 

3447 

N INC -0 

♦  307 

NTIHE-2 

♦  308 

KKN-IG3 

♦  309 

NFRCE-IG1 

♦  310 

NFA-IG2 

♦  311 

WRITE!  1UN  IT , 4 1 90 )NPASS 

♦  312 

4190 

FORNATCl  EllU  ATI  ON  SET:  "  .  I  3  ,  *  AT  TEHPT  ED  “  ) 

♦  313 

NRPT -NRPT-1 

♦  314 

CO  TO  4000 

♦  315 

47000 

CONTiNUE 

♦  314 

CO  TO  45432 

♦  317 

7000 

W  ITE<  1,  450;) 

♦  318 

FORM AT< ■ NRN30  FINISHED  «*«") 

♦  319 

CALL  C  L  0  S  £  ( IB ) 

♦  320 

CALL  PURGE(  IB,  IER,  INFILE  > 

♦  321 

REWIND  8 

♦  322 

3071 

FORMAT <  3A2 ) 

♦  323 

30  70 

FORMAT<  20A2 ) 

♦  324 

STOP  1234 

♦  323 

END 

0324 

END* 

•HRH31  T-00003  18  ON  CR00002  USING  0001?  BLKS  R-0000 
0001  FTN4 

0002  PROGRAH  NRH31 

0003  COHHON  l UNI T ,  H INC . I  FI H,  L , H , NC , F VAL , NEX , NFRCT , NTI HE , NRPT, 

0004  ANPOS,HULT, ICCH,THN,TSIG,NSHR, AL,NPASS, I  CONN, NF A 

0003  COHHON  IRDFIL(3),IRFHT(20),RDATA<30> 

0004  INTEGER  RFHT<  20)/ XNAHE 

0007  COHHON  I  3 IZE< 2 > , INF ILE< 3 >, IFHT< 20  ) 

0008  COHHON  8 GN<  30  >  ,  KFRC E<  30  > ,  NT(  3 0  )  ,  K K X(  30  ) 

0000  COHHON  X<  60  ) . NX( 30  > 

0010  COHHON  R<30,60 > ,  S I  G  <  3  0  >  ,  XB  AR<  30 >,XNHH£< 30,4 ) 

0011  COHHON  l 8<  272  )  < I BUF <  236  > 

0012  01HEN310N  I SRD<  3  ),  NAH  1<  3  > 

0013  DATA  ISRD/2HSR,2HDA,2HTA/' 

0014  DATA  N AH  1  /2HHR, 2HH3 , 2H0  / 

0013  !JRITE<  1,  4400) 

0016  4400  FOSHAT  (  *KRH A IH30 A  *  > 

0017  100C  00  1010  1*1,30 

0018  SGN< I  )  *0 

0019  KFRCE<I>*0 

0020  NT<  I  >-0 

0*21  KKX(I)-0 

0022  S I C <  I  ) -0 

0023  R DA T A<  I  ) * 0  . 

0024  XBARU  )-  0 

0023  NX(I>-0 

0026  DO  1010  4-1,20 

0027  RFHT<J)-2N 

0*28  I FH T<  J  >-2H 

0029  DO  1010  K -1 ,60 

0030  R ( l , K  > *0 

0031  X<  K  )  -0 

0032  1010  CONTINUE 

0033  900  MRITE<  1, 4401  > 

0034  4401  FORHAT  <  'ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT!  '> 

0033  READU, •>  IUNIT 

0036  IF<  IUHIT . NE  .  1  . AND. IUNIT . NE .6 >G0  TO  900 

0037  NINC-0 

0038  IFIN-0 

0039  URITE< 1 , 4402) 

0040  4402  FORHAT  <  'aENTER  •  VPS  IN  HATRIX  (HAX  30):  •> 

0041  READU, •>  L 

0042  NRITE< 1, 4403) 

0043  4403  FORHAT  <  "AENTER  •  S3  OH  HHICN  CORRELS  BASED:  "> 

0044  READU, •>  N 

0043  URI TE< 1,4404) 

0046  4404  FORHAT  <  CENTER  t  OF  CRIT  VARIABLE!  *) 

004?  READU,  •>  NC 

0048  WRITE! 1.4403) 

0049  4403  FORHAT! ' aENTER  HINIHUH  ACCEPTABLE  F  FOR  INCLUSION', 

0030  C*  IN  EQUATION  .  *  ) 
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0091 
0092 
0053 
0054 
0055 
0014 
0057 
oo$c 
CCS?. 
4  040 
0041 
0042 
0043 
0044 
0045 
0044 
0047 
0049 
0049 
0070 
0071 
0072 
0073 
0074 
0075 
0074 
0077 
0079 
0079 
0080 
0081 
0092 
0093 
0084 
0085 
0084 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0093 
0094 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 


READ! 1 , *  )  FVAL 
WRITE!  1 , 4404) 

4404  FORHAT  (  * | EN  TER  9  VBS  EXCLUDED,  %  I  V3S  FORCED:  "> 

READ! 1 #  *  >  HEX , NFRCE 
IF<  HEX .GT .0 )  WRITE!  1,543  > 

543  FORHAT!*  ENTER  4*' 5  OF  VBS .  TO  EXCLUDE  (ANT  ORDER):  •) 

I F!  HEX  .  GT  .  0  )  REAO!l,»>  (  MX!  I  ) ,  I  -l  ,  HEX  > 

IF!  HFRCE  .  CT  .0  )  WRITE!  1.544  > 

544  FORMAT! »*ENTER  «'S  OF  VBS.  TO  FORCE  (IM  0  ES  I  RE  D  ORDER)*") 
IF! HFRCE . CT .0 )  READ<1,*>  ! KFRCE! I  ) , I >1 , HFRCE  ) 

WRITE! 1,4407) 

4407  FORHAT  <  "t ENTER  •  OF  THIS  E 8UATI ON i  •> 

READ! 1 , O  HTIHE 

WRITE! 1 , 4408) 

4408  FORHAT  <  CENTER  i  OF  ADDITIONAL  COMPOSITES  DESIRED:  •) 
HEAD! 1 , *  )  NRPT 

HPOS-O 

MULT-0 

ICON-O 

TMH-0 

TSIC-0 

NSHR-0 

WRITE! 1, 4410) 

4410  FORMAT  !  "IN  THE  FOLLOWING  DIALOG,  l  -  YES,  0  •  HO  u  > 
WRITE! 1,4411) 

4411  FORHAT  !  "SUPPRESS  WT  REVERSALS?  *> 

READ! I , *  )  HPOS 

WRITE! 1 , 4412) 

4412  FORHAT  !  "MULT  WTS  BY  1000?  ■) 

READ! 1 , *  )  MULT 

WRITE! 1,4413) 

4413  FORHAT  !  "SET  MEAN  OF  PREDICTED  SCORES?  •) 

READ! 1 , *  )  ICON 

I  F!  I  COM  .  EQ  .  1  )  WR  ITE!  1  , S3  1  ) 

531  FORHAT! "RENTER  MEAN:  ") 

IF! ICON. EQ.  I  )  READ!  1 , *  )  THH 
WRI TEC  1 , 4414  ) 

4414  FORHAT  <  "SET  SD  OF  PREDICTED  SCORES?  ■  > 

READ! 1 , *  )  ICOH 

IF!  ICOH  EQ.  1)  WRITE!  1,545) 

343  FORMAT! "ENTER  SD  :  •  > 

IF!  ICOH.  EQ.  1  )  RE  AD  !  1 ,  *  )  TSIG 
ySITE! 1,4413) 

4413  FORHAT  <  "SUPPRESS  ADDITIONAL  SHRUNKEN  R  ESTIHATES?  ") 
READ! 1 , *  )  NSHR 
AL-L-l-HEX 
HPASS-1 
WRITE! 1,4419) 

4418  FORHAT  !  "4CHECK  ABOVE  PARAHETERS,  EHTER  1  TO  COHTIHUE,  0 
#" RESTART :  "> 

READ! 1 , • )  ICO  HH 
IF!  ICOHH  EQ .0  )G0  TO  1000 
20000  IF!  I  UN  I  7 . NE . 6 )G0  TO  2080 
WRITE! IUH IT, 20 10 ) 
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L 


DIOS 

OIOS 

2010 

0  1 07 

2020 

01  OB 

o  tot 

C  .  . 

0110 

0111 

2030 

0112 

0113 

2040 

0114 

0113 

2030 

0114 

0117 

2040 

0113 

0113 

2070 

0120 

0121 

0122 

0123 

2080 

FROM  HULTR2V 
N/ FVAL 


**t  SELECTED  OPTIONS  ***•> 


F7.  0  ) 


!■ 1 / NFRCE  ) 


FQRNATCt  OUTPUT 

MRITE<  IUNIT  ,20  20  )L  , ,  ,  „ 

FORH AT<  *  •  VBS  ■  ".13/*  I  SS  ■  “  /  13/*  F-VALUE 
.  .  PRINT  OPTIONS  SELECTED 
IF<NFRCE.GT.0>MRITE<IUHTT,2030XKFRCE<  I  >- 
FORH AT< *  FORCING  SEQUENCE i  */10I3> 

IF(NPOS.GT.O)URITE< IUNIT, 2040  ) 

F  ORH  AT ( "  «T.  REVERSALS  SUPPRESSED.*) 

I  F<  HEX.  GT  .  0  )WR  ITE<  IUNIT  ,  2030  XNX<  I  )»  1*1 , HEX  > 

FORHAT< / /*  VBS.  EXCLUDED  i  *,1013) 

IF<  THN .GT .0 . )«RITE< IUNIT, 2040  )THN 
F  ORH  AT  <  *  ESTABLISH  HE  AN  OF  PREDICTED  SCORES 
IF<TSIG.GT.O. )BRiTE(IUNIT,2070>TSIG 
F  ORH AT ( *  ESTABLISH  STANOARD  DEVIATION  OF 

CSD  OF  CRIT.  BILL  EQUi  <  SD  OF  PRED  SCORE>/RI  > 

NTA^NFsLE 

CALL  EXEC<  9,  NAH1  ) 


AT 


,  F  1 0  .  3  > 


PREDICTED  SCORES  A T : 


END 

ENDS 


RES  ID 


(Residual  Plot) 


Purpose: 

T'lis  program  is  used  to  calculate  residuals  from  data  obtained  from 
the  MRMAIN  program  and  to  plot  the  residuals  against  Y-HAT  or  another 
independent  variable. 

Graph i c  Display: 


M  i  n 


i/i 

LU 

_J 

CQ 

< 

o£ 

< 

:> 

oc 

UJ 

x 

I- 

o 


Max 


M  i  n 


RESIDUALS 


Max 


User  Considerations  and  Procedures: 

1.  Program  reads  off  magnetic  tape,  Y-criterion  and  Y-predicted 
values  created  by  MRMAIN  (see  MRMAIN).  RESID  then  calculates 
the  residuals  by  the  formula: 

Residuals  =  (Y-predicted)  -  (Y-criterion). 

2.  Option:  enter  0  to  plot  Y-HAT  (Y-predicted)  vs  residuals;  enter 
variable  number  of  raw  data  file  to  plot  that  independent  variable 
vs  residuals;  enter  -999  to  end  program. 

3.  Enter  number  of  observations  (program  plots  out  residual  for 
each  observat ion) . 

k.  Enter  number  of  variables  on  raw  data  file. 

5.  Enter  name  of  raw  data  file. 

6.  Enter  format  and  record  length  of  raw  data  file. 

7.  Enter  1  for  CRT  display  or  6  for  line  printer  display  of  data. 
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Comments : 


If  the  device  chosen  for  display  was  the  CRT,  the  program  trans¬ 
fers  the  CRT  graph  to  hardcopy  before  doing  another  plot.  If  a 
hardcopy  is  not  desired,  turn  hardcopy  unit  off. 

On  line  printer  output,  a  cleaner  representation  can  be  obtained 
by  turning  the  paper  over  so  there  are  no  lines  on  the  printed  page 
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RU , RES  I D 

PROGRAM  TO  ANALYSE  RESIDUALS  BY  PLOTTING  YHAT  VS 
RESIDUALS  AND/OR  ANY  INDEPENDENT  VARIABLE  VS  RESIDUALS 


ENTER  0  TO  PLOT  YHAT 

VAR  #  TO  PLOT  THAT  VARIABLE 
-999  TO  STOP 


0 

ENTER  NUMBER  OF  OBSERVATIONS 
32 

ENTE.l  NUMBER  OF  VARIABLES 

8 

ENTER  NAME  OF  DATA  FiLE  NAME 
#FATAA 

ENTER  FORMAT  OF  RAW  DATA 

(8 (2X , F6 . 2) ) 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 

64 

ENTER  1  FOR  CRT,  OR  6  FOR  LINEPRINTER  GRAPH 

6 


ENTER  0  TO  PLOT  YHAT 

VAR  §  TO  PLOT  THAT  VARIABLE 
-999  TO  STOP 

2 

ENTER  0  TO  PLOT  YHAT 

VAR  tf  TO  PLOT  THAT  VARIABLE 
-999  TO  STOP 

-999 
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OPTION  TAKEN 


OPTION  TAKEN 


im*  <t  ■ 


0... 


"REST  D  T  "0  0  00  3  13  ON  CR00002  USING  00022  BLKS  R-0000 


0001 

FTN4, 

L,  8 

0002 

PR0GR8H  RES  ZD 

0003 

COMMON  IUNIT,HSUB,XC2,1000  ),YC30>» IBUFC236),  IB<272> 

0004 

COMMON  IFNT(20  > ,  HA  H  E(  3)*  ICC  120)  /  I  0  <  7  3  > 

0003 

DO  10  1-1,120 

0000 

10 

ICC  I  >-2H 

0007 

DO  234  1-1,73 

0008 

234 

I  D<  I  )-2H 

0009 

IC< 1 >-  IN 

0010 

ICC  2  >-  1HY 

001  1 

IC(  3  >■  1HM 

0012 

I  C<  4  >»  1H  I 

0013 

I  C<  3  >■  1HH 

001* 

ICC  102  1  NY 

v  v  1  3 

ICC  103  >■  1  HM 

0010 

ICC  1  04  )■  1  HA 

0017 

ICC  103  )■  1  NX 

0018 

DO  103  1-1,3 

0019 

103 

I  DC  I  )-ICC  I  ) 

0020 

DO  104  1-1,4 

0021 

104 

I  DC  I+63)-ICC 14  101  ) 

0022 

178-134148 

0023 

177-134278 

0024 

URITEC  1,1) 

0023 

1 

FORM ATC  *  PROGRAM  TO  ANALYSE  RESIDUALS  BY  PLOTTING  Y  HA  T  VS", 

0020 

*/,"  RESIDUALS  AND/OR  ANY  INDEPENDENT  VARIABLE  VS  RESIDUALS") 

0027 

NTIHE-0 

0028 

2 

URITEC  1,3) 

0029 

3 

FORMAT  C //  "ENTER  0  TO  PLOT  YHAT  *./,3X,"VAR  *  TO  PLOT  THAT  ", 

0030 

4" VAR  I  ABLE  ■ , / ,  ■  -999  TO  STOP") 

0031 

READC 1 , O  ICON 

0032 

IFC  ICOM.LT. 0)  GO  TO  999 

0033 

IFC  NTIME . HE .0  >  GO  TO  100 

0034 

URITEC  1,4) 

0033 

4 

FORNATC "ENTER  HUMBER  OF  OBSERVATIONS") 

0030 

READC l , *  )  NSUB 

0037 

NTI ME-NT I  NE  +  1 

0038 

URITEC  1, 3  > 

0039 

3 

FORMATC "ENTER  NUMBER  OF  VARIABLES") 

0040 

READC 1  ,*  >  H VAR 

0041 

URITEC  1,6) 

0042 

0 

FORMATC "ENTER  NAME  OF  DATA  FILE  NAME") 

0043 

READC 1 , 7  )  NAME 

0044 

7 

FORMATC  3 A2 ) 

0043 

URITEC  1.8) 

0040 

8 

FORMATC "ENTER  FORMAT  OF  RAU  DATA") 

0047 

REAOC 1 , 9  )  IFNT 

0048 

9 

FORMATC  20A2 ) 

0  049 

I DC8S-236 

0030 

CALL  OPEHCIB, IERR,HAME,3,0,-2,IDCBS) 

0031 

IFC  IERR  GE. 0)  GO  TO  77 

0032 

URITEC  1,78)  NAME, IERR 

0033 

70 

FCRMATC3X , 3A2, "  FAILED  TO  OPEN  ",I3,"  ERROR  •") 

0034 

STOP 
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0033 

77 

UR!  TC(  1/4403) 

0036 

4403 

FORM ATC ■ENTER  1  FOR  CRT  ,  OR  6  FOR 

L  INEPRINTER  GRAPH*  ) 

005? 

READU.O  I  UN  I  T 

0038 

T  FC  I UNIT  .  NE  .  1  )  GO  TO  100 

0059 

URI  TE<  1/83)  177/  178 

0060 

93 

FORHATC  *  TURN  OF  HARD  COPY  UNIT  POUER/  IF  HARD  COPY* ,  7  , 

0061 

4*  IS  NOT  DESIRED* ,2A2) 

0062 

too 

CONTINUE 

0063 

CALL  RUHDF<  IB  ) 

0064 

REMIND  8 

0063 

DO  13  I  ■  1/NSUB 

0066 

R£AD( 8 / 1 1 >  CRIT.YHAT 

0067 

1 1 

F0RNATC2C3X,Fi0.3>) 

0068 

RES-YHAT-CRIT 

0069 

I  F<  ICON.  EQ.  0)  GO  TO  20 

0070 

CALL  READF< IB/ 1 ERz 1BUF) 

0071 

CALL  CODE 

0072 

READCIBUF.1FNT)  C YC J  ) , J ■ 1 , NVAR > 

0073 

XC  l , I >«YC  ICON  ) 

0074 

GO  TO  21 

0073 

20 

X( 1 < I>-YrtAT 

0076 

21 

X ( 2 / I )-RES 

0077 

13 

CONTINUE 

0078 

CALL  80RTC YNIN.YNAX > 

0079 

I  F(  IUNIT.EQ.l )  GO  TO  39 

0080 

URI  TE(  6. 33  )  ICON 

0  081 

33 

FOR  H AT<  *  1  OPTION  TAKEN*. 17/7) 

0082 

GO  TO  63 

0083 

39 

URITEC  1.84)  178 

0084 

84 

FORNAT<  A2 ) 

0083 

URI  TEC  1 .  33  )  ICON 

0086 

63 

URI  TEC  IUN  IT  .  36  )  YNIN/YNAX 

0087 

36 

F OR N AT C  *  YN IN  ■  * , F  14 . 7 , 3X / * YNAX  ■ 

* ,F 14 . 7, 7  > 

0088 

IFC YNIN.LT.O. AND.YHAX.GT.O)  GO  TO 

37 

0089 

I  F<  I  UN  I T  .  EG  .  1  )  GO  TO  63 

0090 

URITEC  6.  16) 

0091 

16 

F0RNATC3X,"YNIN*,97X, *YNAX*> 

0092 

GO  TO  66 

0093 

63 

URITEC  1,17) 

0094 

17 

FORHATC  *YNIN* , 58X, *YN AX*  > 

0093 

GO  TO  66 

0096 

37 

RANGE-YNAX-YHIN 

0097 

Z  —  YHIN7RANGE 

0098 

I  F<  IUNIT.EQ.l)  GO  TO  67 

0099 

I  V’* 99  .  *Z  +  .5 

0100 

IFC  IV. CT. 3. AND. IV. LT. 98)  GO  TO  70 

0101 

URITEC  6.  16) 

0102 

GO  TO  66 

0  t03 

70 

ICC  I V+3  >• 1H0 

0104 

URI  TEC  6,71)  C  ICC  I).  I  -  1  ,  105) 

0103 

71 

FORNATC 103A1 ) 

0106 

I  CC  I V+  3 )■  IN 

0107 

GO  TO  66 

0108 

67 

I  V-39.  *Z+  .  3 

0109 

IFC  IV. GT . 3. AND . IV. LT. 38 >  GO  TO  72 

0110 

URITEC  1,17) 

0111 

GO  TO  66 
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0112 

72 

I D< I ¥+3 )■ 1H0 

0113 

UR  I  TEC  1,73)  C  ID<  I  >,  1-1 ,  67) 

0114 

73 

F0RNATC67AI > 

0113 

IOt I V* 3  ) ■  1H 

out 

66 

CONTINUE 

0117 

IF<  IUNIT.EQ.  1  >  MSI  TEC  1*364  ) 

0118 

364 

F0RNATC70C*-* >,/ > 

0119 

IFC  IUNIT.EQ.  6)  MRITEC  4,366  > 

0120 

366 

FORM ATC l 10< >  > 

0121 

CALL  STDC  YM IN , YM AX  ) 

0122 

CALL  PPLOT 

0123 

IFC IUNIT . Efl . 1 >  URI TEC  1  >  569  )  177,1  78 

0124 

36  9 

F0RHATC2A2) 

0123 

GO  TO  2 

0 12t 

999 

URITEC  1,30) 

0127 

30 

FORMATC/VA  "RESIDUAL  ANALYSIS  COMPLETE 

0128 

CALL  CLOSEC IB  ) 

0129 

REWIND  8 

0130 

END 

0131 

SUBROUTINE  STD< XMI N , XMAX > 

C  132 

COMMON  IUNIT, HSU8, X<2, 1000 > 

0133 

RANGE-XMAX-XNIN 

0134 

DO  10  I  ■  1  , NSUB 

0133 

10 

X(2,  I  )*<  X<2,  I  >-XHIN  GRANGE 

0  1 3t 

RETURN 

0137 

END 

0138 

SUBROUTINE  PPLOT 

0139 

COMMON  IUNIT, HSUB, XC2, 1000 > 

0140 

DIMENSION  I A< 100 ) 

0141 

DATA  ISTAR/'IH*,',  IBLANK/1H  / 

0142 

DO  10  !■ 1 , NSU8 

0143 

DO  20  L-1,100 

0144 

20 

I A< L  >■ IBL ANK 

0143 

ZK-39. 

0  14t 

IF< IUNIT . EQ . 6  )  ZK-99. 

0147 

Z-XC  2, I  ) 

0148 

J»ZK*Z  ♦  1 

0149 

I  A<  J  )■  I S  T  AR 

0130 

IFC IUNIT . EQ . 1 >  GO  TO  30 

0131 

WRITEC IUH IT, 1 >  IA 

0132 

1 

FORM ATC  4X , *  I • , 100A1 ,  *  I  •  > 

0133 

GO  TO  10 

0134 

30 

WRITEC  l,  2  >  C  I  ACM  >,  M«l  ,60  > 

0133 

2 

FORMATC  3X , *  I • , 60A1 ,  •  I ■ > 

0136 

10 

CONTINUE 

0137 

RETURN 

0138 

END 

0139 

SUBROUTINE  SOR T< YM I N, YN AX ) 

0160 

COMMON  IUNIT, NSUB, X<2, 1000 > 

0161 

YHIH-XC2, 1 ) 

0162 

YMAX-YMIN 

0163 

DO  10  I  ■  l  ,  NSUB 

0164 

YMIH-AHIN1C  YMIN,  A<  2,  I>> 

0163 

ymax-amaxic  YMAX, XC  2, I >) 

0166 

10 

CONTINUE 

0167 

Nl-NSUB-1 

0168 

DO  l  I-l/Nt 

0169 

J-l  +  I 

0170 

00  9  K >  MS UB 

0171 

IF<  AC  1 / I  )  .LE. X< 1 ,K >  >  GO  TO  2 

0172 

TEMP-X< 1 ,  I  > 

0173 

X<1,  I)-X<  1,10 

0174 

X<  1  ,  KWENP 

0173 

TENP-X<2, I > 

0176 

X  <  2  ,  O  <*X  (  2 ,  K  > 

0177 

X<2,X)-TENP 

0178  2 

CONTINUE 

0179  1 

CONTINUE 

0180 

RETURN 

FATAA  (Factor  Analysis) 

Purpose : 

FATAA  computes  principal  components  of  a  correlation  matrix  and, 
optionally,  follows  with  a  principal  factor  analysis  using  squared 
multiple  correlations  as  communal i ty  estimates.  If  desired,  the 
principal  factor  analysis  may  be  iterated  until  commonalities 
stabilize  with  n  an  specified  tolerance. 

Principal  components  analysis  may  be  run  alone  or  used  as  a  begin¬ 
ning  point  for  the  factor  analysis.  In  the  factor  analysis,  the 
number  of  factors  extracted  will  be  equal  to  the  number  of  eigen¬ 
values  from  the  rincipal  components  analysis  which  are  greater  than 
one,  unless  a  smaller  number  is  specified. 

As  with  any  analysis  involving  matrix  inversion,  care  should  be 
taken  not  to  include  variables  which  are  completely  predictable 
from  linear  combination  of  other  variables  included.  In  practice, 
variables  with  very  high  multiple  correlation  (.98  or  above)  ai e 
likely  to  involve  inversion  problems.  The  program  will  detect  such 
linear  dependencies,  exclude  those  variables  from  the  analysis,  and 
repeat  the  analysis  with  the  reduced  matrix. 

User  Considerations  and  Procedures: 

1.  Program  SRM30  must  be  run  first  to  give  FATAA  initial  correlation 
matrix,  variable  means,  standard  deviation,  and  variable  names . 

2.  Program  has  option  for  calling  varimax  rotation  program.  If  this 
option  is  used,  before  running  FATAA,  enter  RP,  VARI .  After 
FATAA  and  VARI  is  complete  enter  'OF,  VARI'. 

3.  Program  uses  disc  files  'SCRTCH'  and  'REDMTX'.  These  should 
never  be  purged  from  disc.  Also,  program  creates  user  files  for 
other  programs  such  as  for  varimax  rotation.  These  should  be 
treated  as  regular  data  files  and  should  be  purged  (deleted)  from 
the  disc  when  not  needed. 

4.  Initial  options  and  parameters: 

a.  option  for  device  output,  enter  1  for  CRT  output  or  6  for 
line  printer 

b.  enter  number  of  variables  from  SRM30  (maximum  30) 

c.  enter  I  for  principal  component  solution  only,  enter  0  for 
principal  component  and  principal  factor  solutions 
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d.  enter  maximum  number  of  factors  to  be  extracted  (maximum 

of  30).  This  should  not  be  greater  than  number  of  variables. 

A  zero  value  defaults  to  30 

e.  enter  maximum  number  of  iterations  for  principal  factor 
solutions.  A  zero  value  defaults  to  1.  MOTE:  The  more 
iterations  requested,  the  longer  the  program  takes 

f.  maximum  number  of  iterations  for  eigenvalue  extraction.  A 
zero  value  defaults  to  10 

g.  enter  convergence  criterion  for  eigenvalue  extraction.  A 
zero  value  defaults  to  .01 

h.  enter  convergence  criterion  for  stabilization  of  commonalities. 
Iteration  will  stop  when  all  communa 1 i t i es  change  less  than 
this  value  across  iterations.  A  zero  value  defaults  to  .01, 
which  is  considered  stringent.  For  a  moderately  unstable 
solution,  .03  or  .05  is  better 

i.  enter  number  of  variables  to  be  exc 1 uded  from  the  analysis 

j.  enter  1  for  a  printout  of  intermediate  results,  otherwise 
enter  0.  This  option  slows  down  the  program  arid  should 
only  be  used  when  convergence  is  uncertain 

k.  enter  lowest  acceptable  eigenvalue  (for  consideration  as  a 
factor).  A  zero  value  defaults  to  1.00 

l.  enter  the  numbers  of  variables  to  exclude  in  any  order, 
separated  by  commas,  (  If  response  to  option  i  was  0,  this 
option  does  not  occur) 

m.  name  of  output  file  for  principal  component  solution 

n.  name  of  output  file  for  principal  factor  solution,  if  optioned 
for 

o.  enter  1  to  call  varimax  rotation  program  ( VAR  I ) ;  else  enter  0. 
(See  (2)  User  Considerations  and  Procedures.)  NOTE:  After  FATAA 
is  finished,  you  can  call  VARI  by  hand,  by  entering  RU ,  VARI. 

All  options  for  varimax  rotation  program  is  given  in  VARI. 

Pr i ntout  g i ves : 

a.  rank  of  matrix,  determinant,  and  a  list  of  variables  viiminated 
during  inversion  due  to  linear  dependencies 

b.  final  r_matrix,  after  exclusions  and  eliminations 

c.  principal  "omponents  solution 
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1)  number  of  factors  with  eigenvalues  greater  than  1.0 

2)  total  percent  of  variance  explained  by  the  number  of 
factors  extracted 

3)  estimated  common  variance 

4)  for  each  factor,  eigenvalue  and  percent  of  variance 
expl a i ned 

5)  commonality  for  each  variable 

6)  factor  loading  matrix 

d.  correlation  matrix  with  squared  multiple  correlations  in 

d i agona 1 

e.  principal  factor  solution 

1)  if  iterated,  commonality  for  each  iteration  and  its 
change  from  preceding  iteration,  and  factor  matrix  if 
elected  by  option 

2)  when  iterations  are  completed,  output  for  the  principal 
factor  solution  corresponding  to  c-1  through  c-6  above 


Test  Data: 

This  program  was  tested  using  the  same  data  as  5RM?0  (See  SRM30) . 
The  accuracy  of  this  program  is  less  than  tha*-  oboined  by  the 
Statistical  Analysis  System.  The  data  analysis  output  is  only 
accurate  to  four  or  five  digit  places  instead  of  ten  digits. 
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RP , VAR  I 
: RU , FATAA 

PRINCIPAL  COMPONENTS/FACTOR  ANALYSIS 

NOTE:  THIS  PROGRAM  WILL  OPEN/READ/WRITE  SEVERAL  DISC  FILES 
'SCRATCH';  ' REDMTX '  ;  2  USER  FILES 
IT  WOULD  BE  PRUDENT  TO  CHECK  FOR  EXISTING  FILES 
I1EFORE  RUNNING 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT  OUTPUT: 

6 

ENTER  #  OF  VBS .  IN  MATRIX: 

8 

ENTER  1  FOR  PRINCIPAL  COMPONENTS  ONLY,  0  FOR  PRINCIPAL 
COMPONENTS  ANO  PRINCIPAL  FACTORS: 

0 

ENTER  MAX  4  OF  FACTORS  TO  BE  EXTRACTED  (0  DEFAULTS  TO  30) : 

8 

ENTER  MAX  4  OF  ITERATIONS  OF  PRINCIPAL  FACTOR  SOLUTIONS 
(0  DEFAULTS  TO  1 ) : 

25 

ENTER  MAX  4  ITERATIONS  FOR  EIGEN  VALUE  EXTRACTION 
(0  DEFAULTS  TO  10) : 

50 

ENTER  CONVERGENCE  CRITERION  FOR  EIGEN  VALUE  EXTRACTION 
(0  DEFAULTS  TO  .01): 

.005 

ENTER  CRITERION  FOR  STABILIZING  COMMUNAL  I T I ES 
(0  DEFAULTS  TO  .01) : 

.005 

ENTER  4  OF  VARIABLES  TO  BE  EXCLUDED  BEFORE  ANALYSIS: 

0 

ENTER  1  TO  PRINT  INTERMEDIATE  ITERATIONS,  0  0.  IERWISE: 

0 

ENTER  LOWEST  ACCEPTABLE  EIGEN  VALUE 
(0  DEFAULTS  TO  1 .00) : 

1 

COMPUTE  PRINCIPAL  COMPONENTS 
COMPUTE  COMMUNAL  I TY 

PRINCIPAL  i.OMPONENTS  SOLUTION  OUTPUT  MOW 
PRINT  FACTOR  MATR I  X 
ENTER  NAME  OF  THIS  OUTPUT  FILE: 

0UTP1 

COMPUTE  INVERSE 

PRINT  FACTOR  MATRIX 

ENTER  NAME  OF  THIS  OUTPUT  FILE: 

0UTP2 

ENTER  1  TO  CALL  VAR  I  MAX 
I 

VAR  I  MAX 

ENTER  1  FOR  CRT  OUTPUT,  6  TO  LPT: 

6 

ENTER  4  OF  SETS  OF  ROTATION  (MAX  IS  25): 

I 


ROTATE  WITH  &  W/OUT  GENERAL  FACTOR  (l=Y,  0-N)  : 

0 

ENTER  #'S  OF  FACTORS  IN  EACH  SET  TO  BE  ROTATED  FROM  SKALLEST  TO  LARGEST: 
3 

WOULD  YOU  PREFER  TO  SKIP  THE  PRINCIPAL  COMPONENT 
SOLUTION  AND  PERFORM  ONLY  THE  PRINCIPAL  AXIS  SOLUTION? 

( 1 =Y ,  0*N): 

0 

MSI ,  NV  =  8 

ENTER  NAME  OF  FILE  CONTAINING  FACTOR  MATRIX  FOR  PRINCIPAL  COMPONENTS: 

OUTP1 

MS2.NFR  =■  3 

BIG  LOOP  THRU  NX  SETS  OF  SEPARATE  ROTATION  PROBLEMS 
OBTAIN  RESIDUAL  CORRELATIONS 

ENTER  NAME  OF  FILE  CONTAINING  FACTOR  MATRIX  FOR  PRINCIPAL  AXIS  SOLUTION 
OUTP2 

MS2.NFR  =  3 

BIG  LOOP  THRU  NS  SETS  OF  SEPARATE  ROTATION  PROBLEMS 
OBTAIN  RESIDUAL  CORRF'ATIONS 
ENTER  1  TO  CONTINUE,  0  TO  END  RUN: 

0 

VAR  I  :  STOP  0000 

0 

FATAA  :  STOP  0000 

: OF , VAR  I 
VAR  I  ABORTED 


NUMBER  OF  VARIABLES .  8 

RANK  OF  MATRIX .  8 

DETERMINANT .  .1946902E-03 
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SUM  OF  FACTOR  LOGS  SQD  2.922  1.055  1-844 

PERCENT  OF  VARIANCE  36.523  13-192  23.046 

TOTAL  PERCENT  OF  VARIANCE  OF  3  FACiORS  =  72.762 


RESIDUAL  CORRELATION  MATRIX  -  3  FACTORS  EXTRACTED 

UPR  RH-ORIGINAL  CORRELATIONS 
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■  FATA A  T-00004  IS  OH  CR00002  USING  00062  BLKS  R-0492 


0001 

FTH4 

0002 

0003 

0004 

0003 

0006 

0007 

0000 

0003 

0010 

001  1 

0012 

0013 

0014 

4400 

0013 

0016 

4401 

0  017 

0018 

0019 

4402 

0020 

0021 

4403 

0  02  2 

0023 

4404 

0024 

0023 

4403 

0026 

0027 

1500 

0028 

4406 

0023 

0030 

003  1 

4407 

0032 

0033 

4408 

0034 

0035 

0036 

4409 

0037 

0038 

0039 

0040 

44  10 

004  l 

0042 

0043 

44  1 1 

0044 

0041 

0046 

44  1  2 

0047 

0048 

44  13 

0049 

0030 

PROGRAM  FATAA 
INTEGER  XID 

D  I  HE  NS  1  OH  X<3  0  >,  COH(  30)  ,  Y<  30  )  ,  INFILE(  3  ),  IFNTC20)  ,  10  FI  LE<  3  ) 
OIHENSIOH  ISI2EC  2> 

COMMON  HELVA< 30>,XID< 30 , 4)  ,NEX 

C  OH  H  OH  R<  30 , 3  0  >,  T<  30,  30  )  ,  EIGEN<  30  )  ,  VAR<  30  ),  I  UNIT 
D  I  HE  NS  I  OH  18(272).  I8UF(  236  ) ,  I  DA  (  3  >  .  IRDX<3  ).  I  SC  R<  3  > ,  NV  A  R I  <  3  > 

DATA  NVARI/2HVA, 2HRI. 2H  / 

DATA  ISCR/2HSC.2HRT.2HCH/ 

DATA  IR0X/2HRE.2HDH.2HTX/ 

DATA  IDA/2HSR,  2HDA,  2HTA.' 

WRI  TEC  1.  4  400  ) 

FORMAT  (  ’PRINCIPAL  C OH P ON EN T $/ F A C TOR  ANALYSIS’  ) 

WRI  TE<  1,440  1  ) 

FORMAT< "NOTE!  THIS  PROGRAM  U I LL  OPEN/READ/WR ITE  SEVERAL  DISK  ", 
■•"FILES’  ) 

WRI  T  E(  1,  4402) 

FORMAT  (  ’  'SCRATCH';  'REDMTX'J  2  USER  FILES"  > 

WRITE<  1  ,  4403) 

FORMAT  (  ’IT  MOULD  BE  PRUDENT  TO  CHECK  FOR  EXISTING  FILES’  ) 
VIRX  TE<  1.4404) 

FORMAT  <  ’BEFORE  RUNNING*  > 

WRITE<  1,4403) 

FORMAT  <  ’ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LPT  OUTPUT:  -> 
READCl,*)  I  UN  I T 
WRI T E <  1.  4406  ) 

FORMAT  (  ’ENTER  •  OF  V8S.  IN  MATRIX:  ’> 

READ< 1 , • >  NV 
U  R I  T  E<  1 ,4407) 

FORMAT< ’ENTER  1  FOR  PRINCIPAL  COMPONENTS  ONLY.O  FOR  PRINCIPAL’) 
URITEC  1,  4408  ) 

FORMAT  (  ’COMPONENTS  AND  PRINCIPAL  FACTORS:  "> 

READ< 1 /• )  NTYP 
WRI  T  E<  1,4403) 

F  OR  M  AT  (  ’ENTER  MAX  •  OF  FACTORS  Tt)  BE  EXTRACTED  (0  DEFAULTS  ", 

X ’  TO  30  ):  ’  ) 

R EA D < 1 , *  >  MAXFAC 
WRI  TE<  1,  4410) 

FORMAT< ’ENTER  MAX  I  OF  ITERATIONS  OF  PRINCIPAL  FACTOR 
C" SOLUTIONS* ) 

WRI  TE(  1,4411) 

FORMAT  (  ’<0  DEFAULTS  TO  1):  "> 

READ< 1 ,* )  MAXIT 
W  R I  T  E(  1,  4412) 

FORMAT  (  ’ENTER  MAX  I  ITERATIONS  FOR  EIGENVALUE  EXTRACTION  ■  ) 

WRITE<  1,4413) 

FORMAT  <  *<0  DEFAULTS  TO  10):  ■) 

READU.O  ITMAX 
WRI  T E<  1,  4414) 
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0  03  1 

44  14 

FORMAT! “ENTER  CONVERGENCE  CRITERION  FOR  EIGENVALUE 

EXTRACTION'  ) 

0052 

y  R 1  TEC  1. 4415) 

0053 

4415 

FORMAT  <  ‘<0  DEFAULTS  TO  .01)!  ■> 

0054 

READCl/O  EPS 

0055 

WRI TE( 1,4416) 

0056 

44  16 

FORMAT  <  'ENTER  CRITERION  FOR  STABILIZING  C 0 MH UN  A L I T I E S  *  ) 

0  05  7 

WRI T£< 1 , 441 7) 

0059 

44  17 

FORMAT  <  '!0  DEFAULTS  TO  .0*);  «) 

0059 

READ<  t  #  «*  >  CRIT 

0060 

WRITE!  '  4419) 

0061 

44  18 

FORMAT! ITER  »  OF  VARIABLES  TO  BE  EXCLUDED  BEFORE 

ANALYSIS:  ') 

0062 

READ! 1 , • >  HEX 

0063 

WRITE! 1,4419) 

0064 

44  19 

FORMAT< 'ENTER  1  TO  PRINT  INTERMEDIATE  ITERATIONS, 0 

OTHERWISE:  '  ) 

0065 

READ< 1 , *  )  IGEN 

0066 

WRITE! 1,4420) 

0067 

4420 

FORMAT  !  'ENTER  LOWEST  ACCEPTABLE  EIGENVALUE  '  ) 

0068 

WRITE!  1,4421  ) 

0069 

4421 

FORMAT  !  '<0  DEFAULTS  TO  1.00)!  «) 

0  07  0 

READ! 1 .*  )  AVGN 

007  1 

IF!  MAXFAC .EQ.  0  )HAXFAC=30 

0072 

IF! MAXIT .  EQ  .  0  >MAXIT«i 

0073 

IF!  I TM AX . EQ . 0  )  ITMAX-10 

0074 

IF!  EPS  .  EQ  .  0  >EPS«  .01 

0075 

IF!  CRIT. EQ. 0)CRIT- .01 

0076 

IF!AYGN.EQ.0)AYGN-1  .00 

0077 

IF<  HEX  .EQ  .  0  )G0  TO  1492 

0079 

WRITE!  1,  4422  ) 

0079 

4422 

FQRHAT  !  'ENTER  I'S  CF  V8S  TO  EXCLUDE,  ANY  ORDER: 

«  ) 

0  080 

READ!!,*)  ! HELVA! I  ) , 1-1 , HEX > 

0081 

1492 

CONTINUE 

0082 

IPUN-0 

0083 

74 

CALL  OPEN! IB,  IER, IDA,  3, 0, -2, 256  ) 

0084 

IF!  IER  GE  .0  )G0  TO  745 

0081 

WRITE! 1, 4428)  IER 

0086 

<*423 

FORMAT  <  'SRDATA  FILE  FAILED  TO  OPEN,  IER  *  ',15  ) 

0087 

STOP 

0089 

745 

DO  10  1-1,30 

0089 

CALL  READF< IB,  IER,  IBUF) 

0090 

CALL  CODE 

0091 

READ!IBUF,94)  < R < J ,  I  ) . J -  1 , 30  ) 

0092 

10 

CONTINUE 

0093 

94 

F OR M AT ( 3 0 < 2X, F10 . 4  >  ) 

0094 

CALL  READF!  IB,  IER,  IBUF, 256, LEN, 61  ) 

0095 

CALL  CODE 

0096 

READ! IBUF, 94)  X 

0097 

CALL  READF! IB, IER, IBUF) 

0098 

CALL  CODE 

0099 

REAO! IBUF, 94)  COM 

0  100 

CALL  READF! IB, IER, IBUF) 

0101 

CALL  CODE 

0102 

R  EA  D  <  I  BU  F  ,  8  08  )  <<XI  D<  I, J>,J-l,4>,  1-1,30) 

0103 

30  8 

FORMAT! 30! 4X, 4A2  ) 

0  104 

CALL  CLOSE!  18  ) 

0  105 

CALL  OPEN! I B,  IER , I  SCR, 3 , 0, -2,  256  ) 

0106 

IF!  HEX  .  NE  .  0  >CALL  REDC<NV,0) 

0  107 

25  1 

DO  252  1-1,30 
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0108 

CALL  CODE 

0  109 

URITE<  IBUF,  74  7  X  R<  I  .  J  ).  J-l  ,  3  0  ) 

0  110 

747 

F0RNAT<30<2X,F12 .5) > 

0111 

252 

CALL  WRI TF( 18/ IER, I8UF> 

0112 

253 

CONTINUE 

0113 

CALL  C LQ S £<  18/  IER) 

0114 

U R I  T  E(  1UNIT/  1894  )NV 

0115 

1894 

F0RMAT(,V5X,  "NUN8ER  OF  VARIABLES . -  ,  2  X ,  I  2  > 

0116 

DETER-SINU  NV  > 

0117 

1F<  HEX  HE  .0  )CALL  REDC<NV.l) 

0118 

WR  I  TE<  IU H  I T / 1  895  )NV  /  DETER 

0  119 

1895 

F0RMAT<5X, "RANK  OF  NATRIX . “,2X,I2/5X, 

0120 

X'DETERNIHAHT . ",  2X.E14  .7  > 

0121 

IF<  HEX  ,£W  .0  )G0  TO  2600 

0122 

1396 

FORMAT (5X/ "VARIABLES  ELIMINATED . ", 2X,  13  ) 

0  123 

W R I  T E<  IUH  IT  /  1  896  >NEX 

0124 

DO  1  397  I  >  1 , HEX 

0125 

KP«N£LVA< I  ) 

0  126 

1397 

WRITE<IUHIT/i8  98  XXID<KF/J),J-t/4) 

0127 

1398 

FORMAT (32X, 4A2  1 

0  129 

2600 

DO  30  I  *  1 / N  V 

0  129 

80 

X< I  >-l  0-< 1  .  0  7  R<  I.  I  )) 

0  130 

N  V-  M  V+  HE  X 

0131 

CALL  0PEH<I8,  IER,ISC2/  3,0,-2,256) 

0132 

DO  2602  1-1/30 

0133 

CALL  RE ADF< 18 /  IER. 18UF  1 

0134 

CALL  CODE 

0135 

2602 

READ<  I8UF.747  )<R<  I  .  J),«J-1,30) 

0  13  b 

CALL  CLOSEC  IBUF.  IER ) 

0  137 

IF<  HEX  EQ  .0  )C0  TO  2345 

0138 

CALL  REDC(HVzO) 

0139 

CALL  0PEN<I8.  IER/ISCR/3,0,-2/  256  ) 

0140 

DO  38  1-1.30 

0  141 

CALL  CODE 

0142 

38 

WRITE<  IBUF,  74?  ><  R<  I ,  J  >,  J»t  ,30  > 

0  143 

CALL  CLOSE< IB. IER) 

0  144 

WRI TE< 1 , 4429 ) 

0145 

4429 

FORMAT  (  "PRINT  R  MATRIX"  ) 

0  14  6 

2345 

CALL  RPRT< 1 . MV  > 

0147 

CALL  OPEN< IB# IER,IRDX,3< 0, ~2  ,  256) 

0148 

I F( IER .GE .0 )G0  TO  2344 

0149 

URITEt  1  , 4430  )  IER 

0150 

4430 

FORMAT  <  'PEDMTX  FILE  FAILED  TO  OPEN.  IER  *  ',15 

0151 

STOP 

0152 

2344 

CALL  CODE 

0153 

W  R I  T  E<  IBUF, 2093  )NV 

0154 

CALL  8 R I T F( 18 , IER,  IBUF) 

0155 

DO  2346  1-1.30 

0  156 

CALL  CODE 

0157 

URITE<  I8UF,  74  7  X  R<  I .  J  ),  J»i  ,30  > 

0158 

2346 

CALL  8R1 TF( IB. IER. IBUF) 

0  139 

2347 

CALL  CODE 

0  160 

WRIT  E<  IBUF  .00  8  X  (XI  D<I/J>.J-l/4>,  1*1.30) 

016  1 

CALL  WRI TF< IB , IER, I8UF ) 

0  162 

CALL  CLOSE  <  I  8  .  I  £R  ) 

0  163 

IF( NTYP.EQ. 2 ) G 0  TO  4300 

0164 

WRI  TE(  1,443  1  ) 

0  165 

44  3  1 

FORMAT  <  "COMPUTE  PRINCIPLE  COMPONENT’S"  ) 

24C 


■.lorai 


i  t 


i 


0  166 

0167 

0168 

0169 

0  1  7  0 

0.71 

0172 

120 

0173 

130 

0174 

0173 

133 

0176 

0  177 

4432 

0178 

140 

0179 

0  180 

0181 

0182 

150 

0183 

U84 

4090 

0  135 

0  186 

303 

0187 

0188 

2001 

0189 

0190 

4433 

0  19  1 

2003 

0192 

0193 

0194 

2004 

0  195 

2005 

0196 

0197 

0198 

0  199 

90 

0200 

020  1 

0202 

1809 

0203 

0204 

0205 

0206 

2250 

0207 

0208 

020* 

0210 

021  l 

2150 

0212 

0213 

0  214 

506 

0  2  *  5 

0216 

0217 

0218 

1305 

0219 

0220 

022  1 

160 

CALL  EXTC<NV,  ITMAX, EPS,  IGEN, PCT  ) 

TVAR-0  .0 
00  120  J-l  HV 

I  F<  E  ICEH<  j  )  .  LT  .  AYGN  >G0  TO  133 
TVAR-TVAR+VARC  J  > 

IF<  J  .  EQ  .  MAXFAC  )G0  TO  130 

COHT  IHUE 

NFAC-J 

GU  TO  140 

NFAC-J-1 

WRITE< 1 , 4432) 

FORMAT  <  “COMPUTE  COHNUMALITY-  > 

00  150  1*1, NV 

CQM(  I  )-0 

DO  150  J  •  1 ,  HFAC 

T< I , J )-T<  I, J )*SQRT<  EIGENC J  )) 

COH<  I  >-COH<  I  >  +  T<  I  J  >*T<  I ,  J  > 

IF<  IUNIT  .  EQ  .  6  )  WRITE<  1,4090  ) 

F  OR  M  AT< "  PRINCIPAL  COMPONENTS  SOLUTION  OUTPUT  HOU 
U  R I  TEC  IUNIT,  303  ) 

F  OR  rt  AT  < "  PRINCIPAL  COMPONENTS  SOLUTION") 

CO  TO  200 

CALL  OPE N< IB, I ER , I  SCR,  3, 0, -2, 256  ) 

W  R I  T  E<  1  ,  4433) 

FOSHAT  <  "COMPUTE  INVERSE’  > 

DO  2004  1=1,30 

CALL  READF< 18, IER, I8UF) 

CALL  CODE 

READ< IBUF,747  )<R< I , J ), J-l, 30  > 

CONTINUE 

CALL  CLOSE(  IB  ,  IER) 

MTYP-NTYP+l 
00  90  1-1  ,NV 
R < I ,  I  )»X<  I ) 

CALL  RPRT  ( 0, NV> 

I TER-0 

CALL  EXTC<NV,  ITMAX, EPS, IGEN. PCT  ) 

I  TER  *  I  TER  + 1 
TVAR-0 

00  2250  1-1 , NF AC 
IVAR-TVAR+VAR<  I  ) 

00  2150  1-1 , N V 
CQM( I ) =0 

DO  2150  J  *  1 , NF  AC 

UI,  J)»T<  I,  J)*SQRT<EIGEN<J  >) 

COM<  I  >-CON<  I  >  +  T<  I,  J  >*T<  I  ,  J  > 
l  F (  IGEN. EQ. 0)  GO  TO  1305 

8  R I  T  E<  IUNIT ,506)ITER«<J,X( J),CCM<  J  > , J« 1 , N V ) 

FOR H AT <///, 5X, 'ITERATION  ",  I  3/ / 1 0  X , 

X" VAR IABLE  ESTIMATED  OBSERVED'// 

$(13X,I3,2X,F10.4,2X,F10.4)> 

CALI.  FPRT<HV,  MFAC) 

IF(  ITER.  EQ.  MAX  IT  )G0  TO  199 
DO  160  J-l, NV 

IF<ABS<COH<  J)-X<J)  ).GT.CBIT>CO  TO  180 
CONTINUE 


0222 
0223 
0  22  4 
022S 
0  226 
0227 
0229 
0229 
0230 
0231 
0232 
0233 
0234 
0233 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0243 
0246 
0247 
0248 
0249 
0230 
0231 
0232 
0233 
0234 
0233 
0236 
0237 
0238 
0239 
0260 
0261 
0262 
0263 
0264 
0263 
0266 
0267 

02r 

0  2b  j 

0270 
027  i 
0272 
0273 
0274 
0273 
0276 


GO  TO  200 

180  00  183  J  •  1 ,  NV 

183  XCJ)-COM<V> 

CALL  OPENC I  8 ,  IER, I  SCR , 3  *  0. -2/  236) 

1841  DO  1942  1-1/30 

CALL  READF<  18/  IER,  I8UF) 

CALL  CODE 

18  42  READC IBUF/747  )CRC I , J  >, J-l, 30  ) 

1843  CONTINUE 

CALL  CLOSE< 18/ 1ER> 

DO  186  I-l/NV 
186  RCI,I)-XCI> 

GO  TO  1809 

199  CONTINUE 

IFC IUNIT . E8 .6  )  WRITEC  1/413) 

413  FORMATC ’PRINC IPAL  FACTORS  SOLUTION  OUTPUT  NOW  ’) 

WRITEC IUNIT, 302) 

302  FORHATC  PRINCIPAL  FACTOR  SOLUTION’  > 

200  YCl)-VAR(l) 

00  203  J-2/NFAC 
J  H 1  -  J  -  1 

203  YC  J  )-YC  JN1  >  +  VARC  J) 

WRITEC IUNIT, 206)  NF AC , TV AR , PCT 
206  FORHATC/'/’  FACTOR  EXTRACTION  ST  AT  I  ST  I C  S  ’  /  / 1  0  X 

1  *  NUMBER  OF  FACTORS . ’,3X,I3/10X, 

2’PERCENT  OF  VARIANCE . ■  , F  10 . 4/ 16X, 

3’ESTIHATEO  COHHON  V AR 1ANCE ’ , F  10 . 4/// 

4 13X,  ’FACTOR*, 4 X,  "EIGENVALUE’ , 4X, "PERCENT  VAR  I A NC E  ’ , 4X  , 
5’CUHUL AT  I VE  PERCENT’//) 

WRI  r  EC  IUNIT,  2  07  )CJ  ,  EIGENCJ  ), VARCJ  ) , YC J  ) , J -l , NF AC  ) 

20  7  FORHATC 17X,  12, 4X,F10. 4»  6X, FI  0 .4, 1  IX, FIO  .4  ) 

WRITEC  IUNH, 209)  CCXIDCI,J),J-l,4),I,C0NCI),I-l,NV) 

209  F0RHATC4X, -COHMUNALITIES*//’  V A R I  A BL E "  ,  1 3 X ,  ’  COHHUHALITY 
1/C3X/4A2, 3X, 13, FIO . 4)  ) 

WRITEC i, 4433) 

4433  FORMAT  C  ’PRINT  FACTOR  MATRIX’  ) 

CALL  FPRTCNV, NFAC  ) 

WRITEC 1, 4436) 

4436  FORMAT  C  ’CENTER  NAME  OF  THIS  OUTPUT  FILE:’  ) 

READC l,809)I0FILE 
809  FORM  ATC  3  A2  ) 

ISIZFC 1  )  -63 
ISIZEC  2 ) -53 

CALL  CREATC IB, IER, I0FILE,lSIZE,2,0,-2»  144) 

IFC  IER  .  C.E  .0  >G0  TO  2094 
WRITEC  1 , 4437)  IER 

'  37  FORMAT  (  ’OUTPUT  FILE  FAILED  TO  OPEN,  IER  -  ’,13  > 

STOP 

2093  F0RMATC3X, 13) 

20  S*  CALL  CODE 

WRITEC  IBUF,  20  91  >HFF,C 
CALL  WRI TF<  18 ,  IER,  1 8UF  ) 

DO  210  J-l, HFAC 
M-0 

DO  210  K-l  . MV,  7 


242 


/ 


0277 

0278 

0279 

0280 

0281 

210 

0282 

2095 

0283 

0284 

0283 

0286 

0287 

0288 

4439 

0289 

0290 

0291 

4300 

0292 

44  39 

0293 

0294 

0293 

0296 

3300 

0297 

0298 

0299 

0300 

0301 

0302 

0303 

1003 

0304 

0303 

0306 

0307 

460 

0308 

0309 

640 

0310 

385 

031  1 

0312 

0313 

0314 

0313 

0316 

0317 

0318 

335 

0319 

400 

0  32  0 

0  32  1 

0322 

460 

0323 

0324 

0323 

440 

0  32  6 

383 

0327 

0  32  9 

407 

0329 

0330 

033  1 

L»MIHO<K*  6 / H V  > 

M  *M  ♦  1 
CALL  CODE 

U R I  T E(  1 8U  F , 2093)  J , H, < T < I , J ) ,  I-K - L  > 

CALL  HR  I  T  F<  IB, IER,  IBUF) 

F OR  H  AT (  2  I  3 , 2X  , 1  OF  1 0 .7 > 

CALL  LOCF< IB,  IER, I  1 , IR8,  21  .  JSFC ) 

ITRUN-JSEC/2  -  IR8  -  I 
CALL  CLOSE( 18, IER, ITRUH > 

IF< HTYP. EQ  0>G0  TO  2001 
HRI T£< 1 , 4438) 

FORMAT  <  -ENTER  1  TO  CALL  VARIHAX  ■> 

READ< 1 , * )  VAR  I 

IF< VARI . EQ. 1 >CALL  EXEC< 9 , MVAR I ) 

HRI T£<  1, 4439) 

FORMAT  <  -ENTER  1  TO  CONTINUE,  0  TO  END  RUN:  •) 

READC 1 , *  >  NEXT 
CALL  CL03 E( IB, IER) 

I F<  NEXT . HE . 0 )G0  TO  1300 

STOP 

END 

SUBROUTINE  FPRT< MV , NF AC ) 

INTEGER  X  I D 

COMMON  NELVA< 30),XID< 30, 4>,MEX 

COMMON  R<  30,3  0  ),  T<  30, 30  >  ,EIGEN<  30  )  ,  YAR<  30  ),  I  UN  IT 
HR  I T  E<  IUNIT, 1803  ) 

F0RNAT<4X, "FACTOR  MATRIX*) 

DO  640  K«  1  , NF  AC, 8 
L-MIH0(K*7, NFAC) 

HRI TE<  UNIT, 460  XJ,J«K, L ) 

F0RHAT</V12X,  9(8H,  13)  > 

DO  640  I  ■ 1 , NV 

HRITE<IUNIT,383XXID<I,J),J-1,4>,I,<T<I,J>,J-K,L) 

FORMAT< 1 X , 4 A2 , 2X, 13, 3X,  8<F7.  4,4X> ) 

RETURN 

END 

SUBROUTINE  RP  R  T<  NT  Y  P ,  NV  > 

INTEGER  X  ID 

COMMON  NELVA<  30  ) ,  X  I  D<  30, 4), HEX 

COMMON  R<  30,3  0  ),  T<  3  0, 30  )  ,E  IGEN<  30  ) ,  VAR(  30  ),  I  UNIT 
HRI  T  E<  UNIT, 333) 

F0RMAT(7/3X-C0RRELATI0N  MATRIX*) 

DO  440  K-l, NV, 8 
L  *M  I  NO  <  K  +  7 ,  NV  ) 

H  R I  T  E<  UNIT,460X  J  ,  J-K,  L  > 

F0RHAT<7/i2X,  8<8X,  13) > 

DO  440  I-K,NV 
MD-M INO<  L,  I  ) 

HRITE(  UNI  T,  383  XX  I  D<  I,  J  ),  J»l,4),  I,<R(  I  ,J  ),  J-K,MD  ) 

FORMAT< 1X,4A2, 2M, 13 ,3X, 8(F7. 4 ,4X)  ) 

IF<HTYP.  HE.  1  )H  RITE  C  UNIT,  4  07  ) 

F0RMAT(//5X, -NOTE--DI AGONAL  ENTRIES  ARE  SQUARED  MULTIPLE 
4C0RREL AT  IONS  OF  EACH  VARIABLE  W I T  H  THE  0  T  HE  R  N-l  VARIABLES") 
RETURN 
END 


9332 

SUBROUTINE  EX T C<  MV , 1 T HR X . E PS .  I C EN -  PC  7 > 

9333 

DIMENSION  A  IK  (  30  ) 

9334 

INTEGER  X  ID 

9339 

COMMON  NELVA< 30>.XID< 39, 4>,NEX 

9336 

COMMON  R<  39 ,39  >.  T<  39,  39  >  ,  EIGEN<  39  )  .VAR<  39  >,  I  UN  IT 

9337 

EQUIVALENCE  (VAR/AIK) 

9339 

DO  2  I-l . HV 

9339 

DO  2  4 ■ 1 . HV 

9349 

2 

T(  I .  J  )-0 

9341 

SICl-0 

9342 

0FFDS8-9 

9343 

DO  9  I-l ,  MV 

9344 

S  IG  1  -S  IG  1  +R<  I  .  I) 

9349 

T  < I /  I )■ t 

9346 

ii-i+i 

9347 

I F< I  . GE . HV  )G0  TO  6 

9349 

DO  9  4  >  l  I  .  N  V 

9349 

9 

OFFDS8«OFFDS8  +  R<  I,  4  )*R<  I  ,4  > 

9399 

6 

S-2-OFFDSQ+SIG1 

939  1 

SIGID-SIG1 

9392 

NVV-NV-l 

9393 

PCT-SIGID/NV 

9394 

DO  26  ITER-1. I TM AX 

9399 

DO  29  I-l.NVV 

9  39  6 

I  I  -  I  ♦  l 

9397 

DO  29  J-I  I. MV 

9399 

Q-ABS<  R<  I  .  I  )  -  ft  <  J  .  J  )  ) 

9399 

X  F<  0 . LE .  1  E-7  >GO  TO  9 

9369 

IF<  ABS(R<  I,  4  >  >  .LE.  t  .E-7  >G0  TO  29 

9361 

P -2 * R<  I.  J  >-Q/<  R<  I,  I  >-R<  4  .  J  >> 

9362 

SPQ-SQRT < P-P+  Q *Q  ) 

9363 

CSA-SQRT<  <  1 +8/ SPQ )/2  ) 

9364 

SNA-P/(2*CSA*SP8 > 

9369 

GO  TO  10 

9366 

9 

CSA-  l/SQRTI  2.9) 

9367 

SNA-CSA 

9369 

19 

CONTINUE 

9369 

DO  11  K-l.NV 

9379 

y T- T <  K  .  I  > 

9371 

T(K.  I  )-U T*CSA ♦ T(  K.  4  >*SNA 

9372 

1 1 

T<  K  ,  4  )  -W  T-SNA-  T(  K.  4  >*CSA 

9373 

DO  16  K*  1  .NV 

9374 

IF<  K  GT  .  4  >G0  TO  19 

9379 

AIK(  K)-R< I . K ) 

9376 

R(I/K)-CSA-AIK(K)+SNA*R(K/4> 

9377 

IF<  K  HE  .  4  >G0  TO  14 

9378 

R<4. K)-SHA*AIK<K  )-CSA-R<  4. K> 

9379 

14 

GO  TO  16 

9  38  9 

15 

NT-R< I . K ) 

9381 

R(I.K)-CSA«yT+SMA*R(4.K) 

9382 

RC4  ,  K)-SNA*UT-CSA*R<4  .»'  > 

9383 

16 

CONTINUE 

9384 

A  IK<  4 )-SNA*AI K<  I  >-CSA-h IK<  4  > 

9389 

00  19  K-l .4 

9386 

IF<  K  LE.  I  >C0  TO  18 

9387 

R(K. 4  )-SNA*ftIK'K  )-CSA*RC  K. 4  > 

244 


■Jt.  ■  -  .-■■ 


0388 
0389 
0390 
0391 
0392 
0393 
0394 
0395 
0  396 
0397 
0398 
0399 
0400 
0401 
0402 
0403 
0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
0412 
0413 
0414 
0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
043  1 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
M40 
0441 


GO  TO  19 

18  UTaR(KiI) 

R<K,  I  >-CSA*WT+3NA  *R!K,J> 

R!  K ,  J  )"SNA*WT-CSA*R!K/tJ  > 

19  CONTINUE 

20  R  <  I  /  J  >  *0 
3IC2-0 

DO  21  I  -  1  /  H V 
E  I G E  H(  I  )  ■  R<  1.1) 

21  S1G2-SIG2+EICEN! I)*EIGEN<  I  ) 

IF! 1-SIG17SIG2  .  GE . EP3  )G0  TO  26 
GO  TO  30 

26  31Q1-SIG2 

30  NVV-NV-l 

DO  300  I-l.HVV 
IP1-I+1 

DO  300  J • IP  1 »  N V 

I  F(  £IGEH<  I)  .GE  EIGEN!  J)  )G0  TO  300 
TEMP  ■£  IGEN!  I  > 

EIGEN!  I  )-EIGEN<  J  > 

EIGEN!  J  )  "TEMP 
DO  250  L-l.HV 
AIK<  L  )-T<  L,  I  ) 

T(Li I )-T<  L, J) 

250  T <  L  <  J  )  •'A  I  K(  L  > 

300  CONTINUE 

DO  35  J" 1 <NV 

35  AIK!  J  )-EIGEN<  J  VNV 
I F  <  I  GEN. EO. 0  1RETURN 
WRITE!  IUN IT • 204  ) 

204  FOR  MAT! *  1 ‘  *  4X  # "COMPLETE  El GE N8TRUC TURE ■ ft  > 

00  205  I •  1  j  MV 

205  WRITE! IUN IT, 201 >1, EIGEN! I >. AIK! I ) 

201  FORHAT!3X/I3i2F10.4  > 

RETURN 

END 

SUBROUTINE  REDC! NV , NT YP  ) 

INTEGER  X ID 

COMMON  NELVA!30)»XID!30,4),HEX 

COMMON  R<  30 , 3  0  ), T!  30, 30  > .EIGEN! 30  )  -  VAR! 30  >, I  UN  IT 
DIMENS  ION  AIK! 30  ) 

EQUIVALENCE  !AIK,VAR> 

WRITE! 1,  4400) 

4400  FORNAT  <  "ORDER  VARIABLES  TO  BE  ELIMINATED"  > 

IF!  HEX  EQ.  1  >GQ  TO  40 
NX-NEX-1 
DO  300  I  *  1 <  HX 
IP1-I+1 

DO  300  J ■ IP  1 <  HEX 

IF!  NELVA! I) .GE .NELVA! J > >G0  TO  300 
NTEMP-NELVA!  I  ) 

NELVA! I )-NELVA! J > 

NELVA! J )-HTEMP 
300  CONTINUE 


2^5 


0442 

40 

DO  20  I  ■  1 <  HEX 

0443 

H2-NV-1 

0444 

NEL-NELVA<  I  ) 

0443 

I F< NEL .£Q  .  NV  >G0  TO  19 

0446 

DO  15  J«NEL,MZ 

0447 

JP1-J+1 

0449 

DO  13  K-liHV 

0449 

15 

R<K, J)-R<  K, JPl  ) 

0430 

DO  17  K-NEL  j  HZ 

0431 

KP1-K* 1 

0432 

DO  17  J-1,NV 

0433 

17 

R<K, J>«R< KP1. J  ) 

0454 

WRI TE< 1,4401) 

0435 

4401 

FORMAT  <  'REDUCE  VARIABLE  HANES*  ) 

0436 

IF<HTYP.EQ.  1)G0  TO  19 

0437 

DO  19  J  -  H£L  .>  NZ 

0439 

JP1-J+  1 

0439 

DO  19  K-l  ,4 

0460 

19 

X I D ( J, K)-XID<  JP1,K  > 

0  461 

19 

HV-HV-  1 

0462 

20 

CONTINUE 

0463 

RETURN 

0464 

END 

0463 

FUNCTION  SIHLCN) 

0466 

INTEGER  XIO 

0467 

CONHON  NELVA<  3  0  )  ,  X  I  D(  30,  4), HEX 

0469 

COMMON  R<  30,30  >, EIGENC30  ), VAR<30),  IUNIT 

0469 

EQUIVALENCE  <A,R) 

0470 

DIMENSION  A<  30 , 30 ) 

0471 

NEX-0 

0472 

DET-1 

0473 

DO  1  J ■  1  ,  M 

0474 

P  VT  ■  A<  J  ,  J  > 

0473 

I  F<  PVT  GT  .0  .01  )G0  TO  23 

0476 

NEX-NEX+ 1 

0477 

NELVA(  HEX  >-J 

0479 

GO  TO  1 

0479 

23 

DET-DET*PVT 

0490 

A <  J , J >-l 

0  491 

DO  2  K-1,H 

0492 

2 

A< J , K)-A<  J, K)/PVT 

0493 

DO  1  K-l , M 

0494 

IF(K-J  >3,  1,3 

0493 

3 

T -A< K, 4  ) 

0496 

A<  K  ,  J  )  -0 

0497 

DO  4  L  ■  1  , M 

0499 

4 

A(K,L)-A<K,L)>A<  J,L)oT 

0499 

1 

CONT  INUE 

0490 

SIML-DET 

0491 

26 

RETURN 

0492 

END 

0493 

END* 
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VAR  I  (Varimax  Location) 

Purpose: 

VARI  accepts  input  from  factor  analysis  programs  and  performs 
normalized  varimax  rotation  on  the  full  factor  matrix  or  sets 
of  the  factors. 

VARI  offers  several  ways  to  vary  the  number  of  factors  rotated. 

Since  it  is  often  not  desirable  to  rotate  all  the  factor  obtained 
in  a  factor  analysis,  the  user  can  choose  to  rotate  any  number  of 
factors  up  to  the  maximum  extracted.  In  addition,  sets  of  various 
sizes  can  be  rotated  in  one  program  run. 

Another  option  allows  the  first  factor  to  be  treated  as  a  general 
and  ignored  in  rotation.  If  the  first  factor  is  truly  a  general, 
so  that  all  variables  load  on  it,  the  varimax  procedures  will  not 
be  able  to  achieve  a  satisfactory  "simple  structure"  solut’on.  If 
a  general  is  suspected,  each  factor  set  can  be  rotated  with  and 
without  the  first  factor  to  determine  differences  between  the  solu¬ 
tions.  Factors  are  rotated  pairwise  until  each  rotation  required 
is  less  than  .01  degrees.  Each  angle  of  rotation  is  selected  so  as 
to  maximize  the  variance  of  the  loadings  squared  for  each  factor. 

This  program  can  be  run  apart  from  FATAA  with  the  'RU,  VARI 1  com¬ 
mand  or  as  an  option  of  FATAA. 

Initial  Options  and  Parameters: 

1.  Option  for  device  output;  enter  1  for  CRT  display  or  6  for  line 
printer. 

2.  Enter  number  of  sets  of  rotation  (maximum  is  25,  0  is  set  to  I). 

If  different  number  of  factors  from  the  same  analysis  are  to  be 
rotated,  this  number  is  equal  to  the  total  of  all  such  sets  (NS) . 

3.  Enter  1  to  rotate  each  set  twice,  with  and  without  general  factor; 
otherwise,  enter  0. 

4.  Enter  the  number  of  factors  in  each  set  to  be  rotated  from  smallest 
to  largest  separated  by  commas.  (NOTE:  The  first  set  should  have 
the  smallest  number  of  factors,  the  last  should  be  largest.)  If 
only  1  set,  enter  number  of  factors  to  be  rotated  in  that  set. 

5.  Enter  1  to  skip  principal  component  solution  and  perform  only 
principal  axes  solution;  otherwise,  enter  0. 


6.  !f  asked  for,  enter  name  of  file  containing  factor  matrix  for 
principal  components  solution  (from  FATAA) . 

7.  Enter  name  of  file  containing  factor  matrix  for  principal  axis 
solution  (from  FATAA). 

8.  Enter  1  to  restart  program,  0  to  stop. 

Printout  Gives: 

1.  Number  cf  variables  and  names  (in  number  of  factors  principal 
axis  so  1 u t i on) . 

2.  Factor  matrix  from  FATAA. 

3.  For  each  set  of  rotations: 

a.  during  solution,  the  iteration  number  and  the  number  of 
rotations  greater  than  0.01  degree 

b.  when  rotation  complete 

1)  number  of  variables 

2)  number  of  factors 

3)  rotated  factor  matrix 

*0  sum  of  factor  loading  squared  (for  each  factor) 

5)  percent  of  variance  (for  each  facto-) 

6)  total  percent  of  variance 

7)  NV  x  NV  matrix  with  original  correlations  above  the 
diagonal ,  common a lities  in  the  diagonal,  and  residual 
correlation  below  the  diagonal 


Test  Data: 

This  program  was  tested  using  the  same  data  as  SRM30  (See  SRM30) . 
Printout  of  input  parameters  and  statistical  output  is  presented  in 
the  factor  analysis  calculations  (See  FATAA).  The  accuracy  of  this 
program  is  less  than  that  obtained  by  the  Statistical  Analysis  System. 
The  data  analysis  output  is  only  accurate  to  four  or  five  digit  places 
instead  of  ten  digits. 
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PROGRAM  VAR  I 
INTEGER  VID 

DIMENSION  IPF  Il£<  3  ),  IRNX<  3  >.  I  B<  272  >,  I8UF<  258  ) 

COMMON  RC30,30)»H<30)»VIDC30,4),F(30,10>, 
XAIJC30»t0>,NIC25>,N0H<.48> 

COMMON  N V , NF, COH,HX,FN 
DATA  IRHX/2NRE,2HDM,2HTX/ 

1893  FORMAT'-  PRINCIPAL  COMPONENTS  SOLUTION*  > 

1894  FORMAT < ■  PRINCIPAL  AXIS  SOLUTION*) 

303  FORMAT  (  *  I  TER  .  * ,  I  3  ,  13 , * R OT AT  I  ON S  OUT  OF  *,I3,*  MORE  THAN 

•  .01  DEGREES*/) 

307  F0RMATC41X,*  KAISER  VAR  I  MAX  ROTATED  FACTOR  MATRIX*/ 

•  44X,  13, 'VARIABLES  X  * ,  I  3  *  FACTORS  "/> 

308  FORMATC  40X,  *  FACTOR  1  -  GENERAL  FACTOR*/) 

309  FORMATC/*  VAR  IDEM  #* , 2X , 1 3 , l 3< 4X .  1 3  )  > 

310  FORMATC IX) 

311  F0RMATC1X,4A2,  I4,t4F7.3) 

312  FORMATC/*  SUN  OF  FACTOR  LOGS  SQD*,14F7  3) 

313  FORMATC*  PERCENT  OF  VARIANCE  *,14F7.3) 

314  FORMATC/*  TOTAL  PERCENT  OF  VARIANCE  OF  *,I3,"  FACTORS  ■  *,F7.3> 
313  FORMATC “  1  *  ) 

316  FORMAT  C  34X, *  RESIDUAL  CORRELATION  MATRIX  -*,I3,"  FACTORS 
••EXTRACTED* ,/ 

•  34X , *  DPR  RM-QRI SI  HAL  C 0 RR EL  A T I  ON S * / 34 X , *  D I  AGONAL-COMMUNAL  I  TV* 

•  /34X , "  LUR  Lri-RES I  DUAL  CORRELATIONS"/) 

317  FORMATC*  ERROR*, 13,"  DOES  MOT  EOUaL  ",I3,"  MINUS  ",  I  3  ) 

MRITEC  1 , 4400  ) 

4400  FORMAT  C  *VARIMAX*  ) 

HRITEC  1,4401  ) 

4401  FORMAT  <  "ENTER  1  FOR  CRT  OUTPUT,  6  FO  LPT:  ") 

READC l , *  )  I  UN  I  T 

CQH-37 .293643 
1  URITEC  1 , 4402  ) 

4402  FORMAT  C  ‘ENTER  •  OF  SETS  OF  ROTATION  (MAX  IS  23):  “> 

READC 1 ,*  )  NS 

URITEC 1,4403) 

4403  FORMAT  C  -ROTATE  WITH  6  U/OUT  GENERAL  FACTOR  Cl-Y,  0-N):  *) 

READ  C 1 , *  )  KG  E  N 

URITEC 1 ,4404) 

4404  FORMATC  ‘ENTER  *'S  OF  FACTORS  IN  EACH  SET  TO  BE  ROTATED", 

••FROM  SMALLEST  TO  LARGEST:*) 

READC 1 , *  )  C  NIC  I  ) , 1-1 , NS  ) 

14  URITEC 1, 4403) 

4405  FORMAT  C  "WOULD  YOU  PREFER  TO  SKIP  THE  PRINCIPAL  COMPONENT  *  ) 

URITEC  1,4406  ) 

4404  FORMATC*  30LUTI0N  AND  PERFORM  ONLY  THE  PRINCIPAL  AXIS  * 

C. ‘SOLUTION? *  ) 

URITEC 1,4407) 

4407  FORMAT  C  *C1-Y,  0-N):  •> 


24g 


0091 

READ< 1,0  JACK 

0092 

CALL  OPE H< 18, IER. I R MX, 3, 0, -2, 236) 

0093 

IF<  I  ER  GE  O  )G0  TO  1300 

0094 

NRITEC 1. 4s08>  IER 

0093 

4408 

FORMAT  <  "REDNTX  FILE  FAILED  TO  OPEH.  IER  ■  * 

,  13  ) 

0034 

STOP 

0097 

1300 

CALL  REAOF< IB.  IER. I8UF> 

0098 

CALL  Cu&E 

0099 

READ< I 3UF . 1301  )NV 

0060 

1301 

FORMAT ( 3X . I 3  ) 

0061 

ti R I  T E<  1, 4409)  HV 

0062 

4409 

FORMAT  <  ‘MSI.  HV  ■  ».I3  > 

0063 

DO  1303  I>1.30 

0064 

CALL  READF< IB. IER. IBUF) 

0063 

CALL  COOE 

0066 

READ< IBUF. 1302  X R( I ,J  >, J-l ,30  > 

0067 

1302 

F0RMAT<30<2X,F12.3>> 

0068 

1303 

CONTINUE 

0069 

CALL  READF< IB, IER, IBUF) 

0070 

CALL  COOE 

0071 

READ<  IBUF,  1304  X  (VI  D<  1.  J  ),  J-l  ,4  ),  1^1,30) 

0072 

1304 

F0RMAT(30<4X, 4A2  )) 

0073 

CALL  CLOSE( IB,  IER) 

0074 

9999 

F0RMAT<3<  2X.10F10.77)> 

0073 

U R I T E( IUNIT ,99  96  ) 

0076 

9996 

F0RMAT(73X, “VARIABLES  UNDER  ANALYSIS") 

0077 

C 

8RITE<  IUNIT,  9999  ><  <R<  I  ,  J  >,  J-1,30),  1-1,30) 

0078 

NRITE<  IUNIT,  1304  >  <  <VID<  I,  J  ),  „-l,4>,  I-l.NV) 

0079 

1343 

IF< JACK, EO. 0>«RITE  <i,432) 

0009 

432 

FORM AT< *  ENTER  NAME  OF  FILE  CONTAINING  FACTOR 

MATRIX, " , 

0081 

♦"FOR  PRINCIPAL  COMPONENTS  SOLUTION:*) 

0082 

IF< JACK. EQ. 1 >  NR  I T  E  <  1 ,433) 

0083 

433 

FORMATC  ENTER  NAME  OF  FILE  CONTAINING  FACTOR 

MATRIX  ", 

0084 

♦■FOR  PRINCIPAL  AXIS  SOLUTION:") 

0083 

READ< 1 , 1303 )IPFILE 

0086 

1303 

FORMAT ( 3A2 ) 

0087 

CALL  OPEH<  IB,  IER, IPFILE, 3, 0, -2, 14  4  > 

0088 

I  F<  IER.GE  .0  )G0  TO  1  3055 

0089 

URITEC 1.4410)  IER 

0090 

4410 

FORMAT  <  "FACTOR  MATRIX  FILE  FAILED  TO  OPEN, 

IER  »  ",  13 

0091 

STOP 

0092 

13033 

CALL  READF<  IB. IER,  IBUF  > 

0093 

CALL  CODE 

0094 

READ< IBUF, 151 1  )NFR 

0093 

1311 

FORMAT  <  5X , 13) 

0096 

HRI  TL(  1,4411)  NFR 

0097 

44  1 1 

FORMAT  <  * M 32 , NFR  ■  *,I5  ) 

0098 

URI TE( IUNIT, 9997  )IPFILE 

0099 

9997 

'  0RMAT(711X,3A277) 

0100 

DO  1306  J-l ,  NFR 

0101 

M-0 

0102 

DO  1306  K -1 , N V  ,  7 

0103 

L-M  INO<  K  +  6,  HV  ) 

0104 

M-M  +  l 

0103 

CALL  READF<  IB ,  IER,  IBUF  ) 

0106 

CALL  CODE 

2  50 


/ 
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♦  1*7  REAft < I BUF  <  2  093  )  IZ1<I22<<AIJ<  I  <  J  )  ,  I  ■ K , L  ) 

0108  2095  F0RHAT<2I3<2X< 10F1 0 . 7  > 

0109  1500  CONTINUE 

0110  CALL  CLOS£(  IB<  IER) 

0111  15075  IGEN-KGEH 

0112  FN-NV 

0113  IF< NS . Efl . 0)NI< 1 )-NFR 

0110  IF< NS. EQ . 0>NS-1 

0115  JACK-JACK  +  t 

01 14  JG«1 

0117  IF< I  GEN . NE  0  )  J  G«  2 

0118  «RITE<  1.  4413) 

0119  4413  FORMAT  <*BIG  LOOP  THRU  NS  SETS  OF  SEPARATE  ROTATION  PROBLEMS*  ) 

0120  10  00  100  L ■ 1 <  NS 

0121  N1T-0 

0122  I  F<  L  .  E8  .  I  >K  A*  1 

0123  IF<L  .NE.  1  >KA-NI<  L-l  >+l 

0124  NF«N  I<  L  ) 

0125  00  8  J  *K  A  <  NF 

0124  DO  8  I  ■  1  <  NV 

0127  8  F<  I  < J  )-AI  J<  I , J  > 

0128  IF< IGEN. EQ. 0)N*HF*<  HF-1  )/2 

0129  IF<  IGEN. NE.  0  )  H *<  NF-t  >*<  H F- 2  > / 2 

0130  LK*  0 

0131  DO  9  I ■ l <  NV 

0132  H<I)-0 

0133  00  13  J«JG<  HF 

0134  13  H< I  )-H< I >+F< I < J  )**2 

0133  N< I )-SQRT<H< I >  ) 

0134  DO  9  J  *J  G  <  N  F 

0137  9  F<I,J)-F<  I<  JVH<  I) 

0138  20  HX-H 

0139  J-NF 

0140  11  LF-J-1 

0141  00  12  K»  J  G< LF 

0142  12  CALL  CSOT< J <K  ) 

0143  J-J-l 

0144  IF<J.GT.JG)GO  TO  11 

0143  NIT-NITM 

0144  HRI TE<  IUNIT  <303)NIT  <HX<  H 

0147  I F<  HX . GT . 0  ) GO  TO  20 

0148  00  30  I -  1  .MV 

0149  00  30  J«J  G<  NF 

0130  30  F< I <  J  )-F<  I, J  )*H<  I  ) 

0131  KA-1 

0132  KB*  1  4 

0133  I  F<  NF  .  LT  .  15  >K  B  "N  F 

0134  40  IF<  JACK.  EQ.  1  ?::RITE<  IUNIT<  1895  ) 

0133  IF<  JACK. EQ. 2  >  8  R I TE  <  IUNIT  < 1894  ) 

0134  VRI TE<  IUNIT  <507)NV<  NF 

0137  IF<  IGEN.NE. 0)WRITE<  IUNIT  <508  ) 

0138  40  VR I TE<  IUNIT  <509XJ,J*KA<  KB) 

0139  VR  I  T  E< IUNIT  <310) 

0140  00  41  I»l  <NV 
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0141 

IF<  LK.  E8 . 0) WRITE!  IUHIT,  311  )(  VID<  I ,  J  ),J»1 , 4) , 

I ,  ! F!  I  , 

J ) , J-KA, KB  ) 

01«] 

IF!LK.  HE  .  0) WRITE!  I  UNI  T,  31 1  X  VID<  I  ,  J  >,  J-l  ,  4)  , 

I  ,  <  R  (.  I  , 

J ) , J-KA , KB  ) 

41(3 

41 

CONTINUE 

41(4 

I F< LK. NE . 0)G0  TO  44 

41(3 

OS  42  J- 1 , NF 

0144 

H<  J  >-0 

0147 

00  42  I-l  ,NV 

41(8 

42 

H<  J  )-H!  J  >+F!  I  ,  J  )**2 

410 

WRITE!  IUHIT, 512)!H!J), J-KA, KB) 

♦  1 70 

8UH-0 

0171 

00  43  J- 1  ,  NF 

0172 

H <  J ) -t  00  *  H! J  >7FN 

0173 

43 

8UH-8UH+H!  J > 

0174 

WRITE!  IUNIT,313)(H!J),J-KA,KB  ) 

0173 

URI TE( IUHIT , 3  1  4 ) NF , SUN 

0174 

44 

KA-KA+ 14 

0177 

KB-KB+14 

0178 

IF<  LK.  ME  .0)00  TO  33 

0170 

I  F<  K8  .  GE  .  NF  )KB-NF 

0180 

IFCNF.  GE  . KA  >GQ  TO  40 

0181 

URI  TE(  IUHIT,  313) 

0182 

IF< IVGEN . HE .0  )G0  TO  100 

0103 

WRITE!  1,4  >14) 

0184 

4414 

FORNAT  <  STAIN  RESIDUAL  CORRELATIONS"  ) 

0183 

00  32  J-l  Hi 

0184 

DO  32  I-J,  «V 

0187 

SUN-0 

0188 

00  31  K» 1 , NF 

0189 

31 

9UH-8UN+F! I , K >*F< J , K  ) 

0190 

I F<  I  .NE.  J  >G0  TO  33 

0191 

R< I,  I  >-6UH 

0192 

GO  TO  32 

0193 

33 

R!  I,  J  >-R!  J, I  )-SUM 

0194 

32 

CONTINUE 

0193 

KA-1 

0194 

KB-  1  4 

0197 

IF!  NV.  LT  .  13  )K8-MV 

0198 

LK- 1 

0199 

30 

WRITE!  IUHIT, 316)NF 

0200 

GO  TO  60 

0701 

33 

I  F<  KB.  GE  .  NV  )KB«NV 

0202 

I  F<  N V  .  GE  .  KA  )G0  TO  50 

0203 

WRITE! IUHIT, 313) 

0204 

100 

CONT  INUE 

0203 

I F< IGEH. EQ . 0 )G0  TO  200 

0204 

I  GEN -0 

0207 

JG-t 

0208 

GO  TO  1C 

0209 

999 

WRITE!  IUHIT, 317)  HV,NVC,ME 

0210 

200 

IF!  J  ACK  .  EQ  .  1  )G0  TO  1545 

021 1 

WRITE! 1,4415) 

0212 

4413 

FORNAT  <  "ENTER  1  TO  CONTINUE,  0  TO  END  RUN: 

“  ) 

0213 

READ! 1 , *  )  ICON 

0214 

IF! ICOH.EQ. 1)  GO  TO  1 

0213 

STOP 

0214 

END 
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021? 

SUBROUTINE  CR0T(J,K> 

0218 

INTEGER  VID 

0219 

COMMON  R<  30,30  >.  H<  30) ,  V  I  D<  30 , 4)  ,F(  30  ,  10  ) 

0220 

XAI0<  30, 10  >,  NI<  23  >,  N0HC4  8  > 

0221 

COMMON  NV , NF,  CON  >  MX , FN 

0222 

A-0 

0223 

8-0 

0224 

C-0 

022S 

0-0 

0228 

00  9  I -1 / NV 

022? 

U-<  F<  I  ,  J  >+F<  I ,  K)  >*<  F<  I,  J  >-F<  I  ,K  >  > 

0228 

V-2 . *F<  I ,  J  )*F<  1,10 

0229 

A-A  +  U 

0“*30 

B-B  +  V 

0231 

C-C*<U*U-V*V> 

0232 

3 

0-0+2. *U*  V 

0233 

V-D-<  2  .  -A+B  VFN 

0234 

U»C-<  A  +  A-B-B^FN 

023S 

I  F<  U  .  EQ  .  0  >C0  TO  84 

0238 

O-V/U 

023? 

D-AT AN<  0  )  -CON 

0238 

I  F<  V  >8 1 1  82,  82 

0239 

81 

IF(  U  >83/84,  86 

0240 

82 

IF<U  >83,  84,  86 

0241 

83 

V-0-180. 

0242 

GO  TO  87 

0243 

84 

I  F(  V  .  EQ  .  0  )G0  TO  90 

0244 

IF<  V  .LT.  0  >V  —  90. 

0249 

IF<  V  .GT. 0  .  ) V- 9 0 

0248 

GO  TO  87 

024? 

83 

V  - 1 8  0 . +0 

0248 

GO  TO  87 

0249 

88 

V-0 

0290 

87 

V-V74. 

0231 

I  F<  AB$(  V  >  .GT.  .  01  )G0  TO  91 

0232 

90 

HX-HX-1 

0293 

GO  TO  21 

0234 

91 

V-V7C0N 

0233 

A-9  I  N<  V  ) 

0238 

8-C0S(  V  > 

0237 

00  20  I-l/HV 

0298 

0-F<  I, J  >*B+F<  I  ,K  >*A 

0239 

F<  I  /  K  >--F<  I ,  J  >  *A  +  F  <  1,10*0 

0280 

20 

F <  I  /  J ) -0 

0281 

21 

CONTINUE 

0282 

RETURN 

0283 

END 

0284 

ENDS 

'.mw.ii't  .' 
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RANK  (Column  Ranking) 

Purpose : 

This  program  ranks  data  in  a  data  file  aid  cieates  a  new  file  *-o  be 
s tored  on  the  disc. 

Layout  of  Design: 

Ranking  is  done  across  columns  independently  of  rows.  In  the  case 
of  a  tied  observation  average  ranks  are  assigned. 

User  Considerat!  >ns  and  Procedures: 

1.  RANK  expects  a  data  file  to  be  created  in  a  row  x  column  (R  x  C) 
matrix  form.  A  printout  of  raw  data  would  show  L  (column)  elements 
pei  line.  The  created  file  has  the  same  data  format  and  record 
length  as  the  original. 

2.  The  data  analysis  can  either  be  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

3 .  Program  has  four  options  foi  data  printout.  Enter: 

1  for  printout  of  raw  data  only 

2  for  raw  and  ranked  data  printout 

3  for  ranked  data  printout 

4  for  no  printout 

4.  Parameters  required: 

a.  number  of  columns  (maximum  100) 

b.  number  of  rows  (maximum  32767) 

c .  raw  data  file  name 

d.  format  and  record  length  of  data  file 

e.  new  file  name  (not  same  as  raw  data  file) 

5 .  Printout  as  optioned  for  only. 


Comments : 

Ranked  data  are  used  for  program  CHIRA. 


FHBCEL'livG 


P«GE  BLAWK-NOi  FlUflt 
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RU , RANK 

ENTER  NUMBER  OF  COLUMNS 

e 

ENTER  NUMBER  OF  ROWS 
32 

ENTER  DATA  FILE  NAME 
#FATAA 

ENTER  DATA  FORMAT 
(8(2X,F6.2) ) 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
64 

ENTER  OUTPUT  FILE  NAME 
GEORGE 

ENTER  I  FOR  PRINTOUT  OF  ONLY  RAW  DATA,  2  FOR  RAW  DATA  AND  RANKED  DATA, 
3  FOR  ONLY  RANKED  DATA,  AND  4  FOR  NO  PRINTOUT  AT  ALL 

2 

ENTER  1  FOR  CRT  DISPLAY,  6  FUR  LPTR 

6 


2  56 


RAW  DATA 


24.00 

81.00 

992.00 

1024.0 

978.00 

1101.0 

936.00 

1120.0 

25.00 

22.00 

181 .00 

310.00 

293-00 

346.00 

188.00 

166.00 

27.00 

57.00 

124.00 

172.00 

166.00 

491 .00 

1 54.00 

83.00 

29-00 

36.00 

553-00 

719.00 

605.00 

933.00 

585.00 

346.00 

30.00 

54.00 

1046.0 

2221.0 

1U1  .0 

2656.0 

1062.0 

1030.0 

31.00 

25.00 

322.00 

522.00 

402.00 

676.00 

261 .00 

379-00 

32.00 

78.00 

838.00 

364.00 

222.00 

433.00 

1014.0 

584.00 

35.00 

80.00 

575.00 

405.00 

456.00 

320.00 

789.00 

320.00 

36.00 

30.00 

835.00 

811.00 

716.00 

824.00 

735.00 

975.00 

37.00 

80.00 

1001  .0 

166.00 

179.00 

154.00 

907.00 

1065.0 

37.00 

57.00 

1418.0 

1706.0 

1656.0 

1759-0 

1024.0 

219.00 

45.00 

74.00 

531 .00 

503-00 

581 .00 

593-00 

481 .00 

593.00 

77.00 

66.00 

218.00 

637.00 

681 .00 

591 .00 

300.00 

201 .00 

80.00 

47.00 

133.00 

109.00 

112.00 

106.00 

166.00 

108.00 

30.00 

80.00 

74.00 

100.00 

115.00 

90.00 

79.00 

68.00 

80.00 

74.00 

550.00 

322.00 

422.00 

204.00 

600.00 

400.00 

18.00 

61  .00 

72.00 

429-00 

456.00 

411.00 

405.00 

856.00 

19-00 

18.00 

67.00 

760.00 

356.00 

509-00 

966.00 

3216. 0 

20.00 

80.00 

173-00 

434.00 

311.00 

511.00 

103-00 

139-00 

20.00 

15.00 

209-00 

422.00 

573.00 

250.00 

230.00 

110.00 

22.00 

29.00 

18.00 

1024.0 

1114.0 

853.00 

687.00 

671 .00 

22.00 

56.00 

98.00 

267.00 

229.00 

341 .00 

206.00 

106.00 

22.00 

7.00 

21.00 

752.00 

795-00 

491 .00 

1252.0 

1308.0 

24.00 

14.00 

292.00 

1312.0 

1324.0 

1296.0 

1342.0 

1851  .0 

80.00 

51.00 

116.00 

777.00 

1034.0 

548.^0 

880.00 

952.00 

74.00 

51.00 

13.00 

392.00 

390.00 

394.00 

243.00 

265.00 

64.00 

46.00 

19.00 

318.00 

292.00 

348.00 

156.00 

134.00 

60.00 

37.00 

42.00 

703.00 

787.00 

578.00 

142.00 

257.00 

59-00 

18.00 

345.00 

399.00 

778.00 

1141.0 

424.00 

411.00 

54.00 

14.00 

49.00 

968.00 

747.00 

1521.0 

925.00 

857.00 

54.00 

71  .00 

16.00 

503.00 

';21  .00 

964.00 

275.00 

226.00 

51  .00 

53.00 

15.00 

I98.OO 

201.00 

193.00 

591.00 

236.00 

RANKED 

DATA 

1  .00 

2.00 

5. 

00 

6, 

,00 

4. 

00 

7. 

.00 

3 

.00 

8. 

,00 

2.00 

1  .00 

4. 

,00 

7. 

,00 

6. 

,00 

8. 

.00 

5 

.00 

3. 

,00 

1 .00 

2.00 

4. 

,00 

7, 

.00 

6. 

,00 

8. 

,00 

5 

,00 

3. 

00 

1  .00 

2.00 

4. 

,00 

7. 

,00 

6. 

,00 

8. 

,00 

5 

.00 

3. 

,00 

1  .00 

2.00 

4. 

.00 

7, 

.00 

6. 

,00 

8. 

,00 

5 

.00 

3. 

.00 

2.00 

1  .00 

4. 

,00 

7, 

.00 

6. 

,00 

8. 

.00 

3 

.00 

5. 

,00 

1.00 

2.00 

7. 

.00 

4. 

,00 

3. 

,00 

5. 

,00 

8 

,00 

6. 

,00 

1  .00 

2.00 

7 . 

.00 

5 

.00 

6. 

,00 

3. 

,50 

8 

,00 

3. 

,50 

2.00 

1  .00 

7. 

.00 

5, 

.00 

3. 

00 

6, 

.00 

4 

,00 

8. 

00 

1  .00 

2.00 

7 . 

.00 

4. 

,00 

5. 

,00 

3, 

.00 

6 

.00 

8. 

,00 

1  .00 

2.00 

5. 

.00 

7 

.00 

6, 

.00 

8. 

.00 

4 

.00 

3. 

,00 

1  .00 

2.00 

5 . 

.00 

4 

.00 

6. 

,00 

7, 

.50 

3 

.00 

7, 

,50 

2.00 

1  .00 

4. 

,00 

7 

.00 

8. 

.00 

6, 

.00 

5 

.00 

3, 

,00 

2.00 

1  .00 

7 

00 

5, 

,00 

6, 

.00 

3, 

.00 

8 

.00 

4, 

,00 

4.50 

4.50 

2 

.00 

7. 

.00 

3. 

.00 

6, 

.00 

3 

.00 

1  . 

,00 

2.00 

1  .00 

7 

.00 

4. 

.00 

6. 

.00 

3 

.00 

8 

.00 

5, 

.00 
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'  1.00 

2.00 

3.00 

6.00 

7.00 

j  2.00 

1  .00 

3.00 

5.00 

6.00 

i  1  .00 

2.00 

5.00 

7.00 

6.00 

[  2.00 

1  .00 

4.00 

7.00 

3.00 

2.00 

3  .00 

1.00 

7.00 

8.00 

i  1.00 

2.00 

3.00 

7.00 

6.00 

3  .00 

1  .00 

2.00 

5.00 

6.00 

2.00 

1  .00 

3.00 

5.00 

6.00 

2.00 

1  .00 

3.00 

5.00 

8.00 

’  3-00 

2.00 

1.00 

7.00 

6.00 

3-00 

2  .00 

1.00 

7.00 

6.00 

3.0) 

1  .00 

2.00 

7.00 

8.00 

i  2.00 

1  .00 

3.00 

7.00 

6.00 

,  3-00 

1.00 

2.00 

7.00 

4.00 

(•  2.00 

3.00 

1  .00 

7.00 

6.00 

k  1  2.00 

3.00 

1.00 

5.00 

6.00 

5.00 

4.00 

8.00 

6.00 

6.00 

8.00 

4.00 

4.00 

4.00 

8.00 

8.00 

6.00 

8.00 

8.00 

8.00 

4.00 


4.00  8.00 
7.00  8.00 
3.00  4.00 
5.00  3.00 
5.00  4.00 
5.00  4.00 
7.00  8.00 
7.00  8.00 
6.00  7.00 
4.00  5.00 
5.00  4.00 
4.00  5.00 
5.00  4.00 
6.00  5-00 
5.00  4.00 
8.00  7.00 
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•RANK  T-60603  IS  OH  CR06002  USING  06013  BUS  R-0060 


0001 

FTN4 

0002 

PROGRAM  RANK 

0003 

COMMON  A< 100),A1C100),HAME(3),IFHT(20) 

0004 

COMMON  IB<272  >,  ICC  2  72  >,  IBUFC  2  36  >,  ISIZE<  2) 

0003 

00  109  1*1.  ICO 

0006 

A< 1 > *0  . 

0007 

A  1  (  I  )■  0  . 

0009 

109 

CONTINUE 

0009 

BRITEC 1.17) 

0010 

17 

FORMATC  ENTER  NUMBER  OF  COLUMNS  *) 

001  l 

REA0<1;*>  NC 

0012 

WRI TEC  1.16) 

0013 

16 

FORMATC  ENTER  NUMBER  OF  ROBS*) 

0014 

REAOC 1 . *  )  NR 

0013 

HRITEC  1.13) 

0016 

13 

FORMATC  ENTER  OATA  FILENAME*) 

0017 

REAOC  4 .  1  )  NAME 

0019 

1 

FORMA. C3A2) 

0019 

URITEC 1.14) 

0020 

14 

FORMATC  ENTER  OATA  FORMAT*) 

0021 

REAOC 1.11  )  I FM  T 

0022 

11 

FORMAT C  20A2  ) 

0023 

BRITEC 1,89) 

0024 

88 

FORMATC  ENTER  THE  RECORO  LENGTH  AS  IN  0A30 

0023 

REAOC 1 , *  )  LENGTH 

0026 

LEH-LENGTN/2 

0027 

IFC  CLEN*2  ).  NE  .LENGTH)  LEN-LEN-H 

0029 

LEHGTN-LEN 

0029 

IDCBS-LEHGTH 

0030 

IFC LENGTH  LT. 144  )  IDCBS-144 

0031 

CALL  OPENC IB,  I ER , N AMF , 3 , 0 , -2 ,  10 CBS  ) 

0032 

I FC  IER  .GE  .  0  )  GO  TO  343 

0033 

BRITEC  1 . 366  )  NAME,  IER 

0034 

366 

FORMATC 3X , 3A2, *  FAILED  TO  OPEN  ,  IER  -  *, 

0033 

STOP  366 

0036 

343 

BRITEC  1,12) 

0037 

12 

FORMATC*  ENTER  OUTPUT  FILENAME*) 

0039 

REAOC 1 , 1  )  NAME 

0039 

I S I 2  EC 2)*LENGTH 

0040 

SIZE-LENGTH 

0041 

XSU-HR 

0042 

3IZE-XSU*SI2E/128.  ♦  1. 

0043 

ISIZEC 1  )  =  SIZE 

0044 

CALL  CREATC IC, IER, NAME,  I S I ZE , 2 , 0 , -2, IOCBS  ) 

0043 

IFC  IER  GE  .0  )  GO  TO  330 

0046 

BRITEC  1, 366  )  NAME,  IER 

0047 

STOP  367 

0048 

330 

00  100  M3-I.NR 

0049 

L  1*  1 

0030 

N  *0 

0031 

CALL  REAOFC IB , IER, IBUF) 

0032 

CALL  CODE 

13) 
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0  03  3  READC  I  BUF  .  I  FHT  X  AC  K  >,  K*1  -  HC  ) 

0034  2  AL0W»9999.99 

0033  N*N+L1 

0036  DO  3  K  ■  t  ,  NC 

0037  IF<  AC  K  ), EQ . 9999.99  >C0  TO  3 

0038  IFC  ACK  >.  LT.  ALOW)ALQW*AC  K  > 

0039  3  CONTINUE 

0060  IF< AlOU. EQ. 9999. 99  )G0  TO  10 

0061  Ll-0 

0062  C-0 

0063  DO  5  K*i,NC 

0064  IFC  ftCK  ).  HE.  ALOW)GO  TO  3 

0065  Ll-Ll+1 

0066  C "C  ♦N+  LI  -  1 

0067  3  CONTINUE 

0068  C-C/Ll 

0069  DO  4  K  *1 , NC 

0070  IFC  ACK  >.  HE.  ALOW)GO  TO  4 

0071  AICK)*C 

0072  AC  K  >*9999 . 99 

0073  4  CONTINUE 

0074  GO  TO  2 

0073  10  CALL  CODE 

0076  WRITEC  IBUF,  IFMT)CA1CK),K*1,NC> 

0077  CALL  WRI TFC 1C ,  IER,  I BUF > 

0078  100  CONTINUE 

0079  URITEC  1  #  139) 

0080  139  FORHATC " ENTER  1  FOR  PRINTOUT  OF  ONLY  RAW  DATA, 2  FOR  RAW  DATA  ■ , 

0081  */,*  AND  RANKED  DATA. 3  FOR  O..LY  RANKED  DATA  ,  AND  4  FOR  NO  -,/ 

0082  *, “PRINTOUT  AT  ALL" > 

0083  READC l , *  >  IPTO 

0 08 4  IF<<  IPTO.LT.l  >  OR.C IPTO. GE . 4 > >  GO  TO  32 

0083  WRITEC  1,  160) 

c  086  160  FORHATC -ENTER  1  FOR  CRT  DISPLAY,  6  FOR  LPTR-) 

0087  READC 1 , •  )  IUNIT 

0088  CALL  RWHDFC  19  ) 

0089  CALL  RWHDFC  IC  ) 

0090  IFC  IPTO. EQ. 3)  GO  TO  788 

0091  WRITEC IUNIT, 209) 

0092  209  FORMA TC//.5X,  -  RAW  D AT  A* , // > 

0093  DO  137  1*1, NR 

0094  CALL  READFC  IB,  IER,  IBUF) 

0093  CALL  CODE 

0096  READC IBUF, IFHT >  C A C K  )  , K*  1 , NC  ) 

0097  137  WRITEC  IUNIT, IFHT  )  C AC K  ) , K» 1 , HC  ) 

0098  IFC  IPTO. EQ.  1  )  GO  TO  32 

0099  788  WRITEC  IUNIT, 237) 

0100  237  FORHATC///, 3X, -RANKED  DATA  •/> 

0101  DO  273  I  *  1 , NR 

0102  CALL  READFC  IC ,  IER,  I BUF  ) 

0103  CALL  CODE 

0104  READC IBUF, IFHT  )  C A  1 C K  ) , K  ■  1 , N C > 

0103  273  WRITEC  IUHIT, 391  >  C A  1 C K  )  , K- 1 , NC  ) 

0106  391  FORHATC IOC  1 X, F6. 2)  > 

0107  32  CALL  CLOSE  CIB.IER) 

0108  CALL  CLOSE  C I C , I ER  ) 

0109  END 

0110  END* 

2f>0 


ORANK  (Matrix  Ranking) 

Pu  rpose : 

This  program  ranks  data  in  a  data  file  and  creates  a  new  file  to 
be  stored  on  disc. 

Layout  of  Design: 

Unlike  the  program  RANK,  ranking  is  done  for  entire  data  set.  In 
case  of  tied  observations,  ranks  are  assigned  randomly. 

User  Considerations  and  Procedures: 

1.  Program  expects  data  file  to  be  created  in  a  row  x  column  (R  x  C) 
matrix  format.  A  printout  of  raw  data  would  have  C  (column) 
elements  per  line.  The  created  data  file  would  be  in  R  x  C 
matrix  form  with  different  data  format  and  record  length. 

2.  Parameters  required: 

a .  raw  data  file  name 

b.  ranked  data  file  name 

c.  raw  data  format  and  record  length 

d.  ranked  data  format  and  record  length 

e.  number  of  records  (rows)  (see  comments) 

f.  number  of  columns  (see  comments) 

3.  There  is  no  printout  of  the  ranked  data. 


Comments : 

The  maximum  size  of  parameters,  row  (R)  and  column  (C) ,  is  as  follows 
1 .  C  <  30 


2.  R  *  C  <  2500 


RU.ORANK 

PROGRAM  TO  RANK  ENTIRE  DATA  SET  BY  ROWS  AND  COLUMNS 

ENTER  NAME  OF  INPUT  DATA  FILE 

#FATAA 

ENTER  NAME  OF  OUTPUT  DATA  FILE 
#UWF 

ENTER  INPUT  DATA  FILE  FORMAT 

(8 (2X , F6 . 2) ) 

ENTER  OUTPUT  DATA  FILE  FORMAT 

(8(2X , F6 . 2) ) 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 

6A 

ENTER  THE  OUTPUT  RECORD  LENGTH  AS  IN  DA30 
64 

ENTER  IN  NUMBER  OF  RECORDS 
32 

ENTER  IN  NUMBER  OF  VARIABLES 

8 

'RANK  :  STOP  0000 
:  L  L ,  6 

: L I ,#FATAA,A 
:  L  I  ,,#UWF ,  A 


"ORANX  T-00003  IS  ON  CR00002  USING  00012  3LKS  R-0000 
0001  FTN4-L 

0002  PROGRAM  ORANX 

0003  CON  HON  Y<  2300  >-  IB(  272  >»  ICC  272  >,  IBUF(  236  >-  ICUF<  296  >,  NAME!  3  >  - 

0004  41 NAHE<  3  > .  IFHT< 20 ) , I FH T2< 20 ) , X! 30 ) . J J < 30  ) - I REC - I V AR , IS  I ZE! 2 > 

0003  COMMON  Z< 30 > 

0004  MRITE(l.l) 

0007  1  FORMAT! 'PROGRAM  TO  RANK  ENTIRE  DATA  SET  BY  ROUS  AND  COLUMNS" > 

0008  URI  TE!  1 ,  2  > 

0008  2  FORMAT< "ENTER  NAME  OF  INPUT  DATA  FILE") 

0010  READ< 1 / 3  )  NAME 

0011  3  FORM  AT! 3 A2  ) 

0012  URI  TE!  1,4) 

0013  4  FORMAT! "ENTER  NAME  OF  OUTPUT  DATA  FIL£"> 

0014  READ! 1 , 3  )  INANE 

0013  URITE(l.S) 

0014  3  FORMAT! "ENTER  INPUT  DATA  FILE  FORMAT") 

0017  R  EA  D !  1 , 4  )  IFMT 

0018  4  FORMAT ! 20A2  ) 

0018  WRITE!  1,7) 

0020  7  FORMAT! "ENTER  OUTPUT  DATA  FILE  FORMAT") 

0021  READ! 1  -  4  )  IFHT2 

0022  URI TE! 1 1 88  ) 

0023  88  FORMAT!"  ENTER  THE  RECORD  LENGTH  AS  IN  DA30") 

0024  READ! 1 . *  )  LENGTH 

0023  LEN-LENGTH72 

0024  IF<!LEN*2>. HE  LENGTH)  LEN-LEN+1 

0027  LENGTH-LEN 

0028  IDCBS-LENGTH 

0028  I  F!  LENGTH  .  LT  .  1  44  )  IDCBS-144 

0030  CALL  OPEN! IB,  IER-NAME-3, 0, -2,  IDCBS  ) 

0031  I F!  IER . GT  .  0  )  GO  TO  8 

0032  WRITE!  1, 9  >  NAME-  IER 

0033  9  FORMAT! 3A2, "  FAILED  TO  OPEN  -  IER  ■  ",I3> 

0034  STOP  1 

0035  0  CONTINUE 

0036  WRITE!  1-  88) 

0037  39  FORMAT!"  ENTER  THE  OUTPUT  RECORD  LENGTH  AS  IN  DA30") 

0  039  R  EAD! 1  -  *  )  LENGTH 

0039  LEN-LENGTH72 

0040  IF!!LEN*2).NE. LENGTH)  LEN-LENM 

0041  LENGTH-LEN 

0042  I DC8S-LENGTH 

0043  I F( LENGTH  .  LT .  1  44 >  IDCBS-144 

0044  WRITE! 1 , 10) 

0045  10  FORMAT! “ENTER  IN  NUMBER  OF  RECORDS") 

0046  READ<1,*)  IREC 

0047  WRI  TE!  1  ,  1  1  ) 

0048  11  FORMAT! "ENTER  IN  NUMBER  OF  VARIABLES") 

0049  R  E  A  D  (  1  .  *  )  IVAR 

0050  I  TOT AL-I REC*I VAR 
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iisar! 


003  1 

SIZE-LENGTH 

0032 

I  SI Z E C 2)-L£NGTH 

0033 

XG-IREC 

0034 

S IZ£aXG*S  IZE/ 1 28  *  1 

0053 

I  SI  ZE<  1  )-SI  ZE 

0036 

CALL  CREAK  IC,  IER,  I  NAME,  IS  IZE.  2,0,  -2/  IDC8S) 

0037 

I F  <  I ER  . L  T  O  >  WRITE<1,9>  INANE  /  IER 

0038 

IF<  IER .LT  .0  >  CALL  CLOSEl  18  ) 

0059 

IF< IER .LT  0  )  STOP 

0060 

00  12  J»1 / IREC 

0061 

CALL  READFC 18/ IER, I8UF> 

0062 

CALL  CODE 

0063 

READ<  IBUF,  IFHTX  X<  I  ),  I»1  ,  I  VAR  > 

0064 

DO  13  I -  1  / I  VAR 

0063 

L-<  J  -1  >• IVAR+I 

0066 

13 

Y<  L >-X<  I  > 

0067 

12 

CONTINUE 

0068 

CALL  SORT(ITOTAL) 

0069 

CALL  RWNDF<  IB  > 

0070 

00  50  <-1/ IREC 

0071 

CALL  READF< 18 / IER/ I 8UF ) 

0072 

CALL  COOE 

0073 

READ( I BUF ; I FHT  )  < X<  I  3  > ,  I  3- 1 ,  I  VAR > 

0074 

DO  51  J-l , I  VAR 

0  07  5 

00  32  I-l/ITOTAL 

0076 

IF<  X< J  >. HE. Y<  1  ))  GO  TO  52 

0077 

Y < I  )--999  363 

0078 

Z(  J  >  -I 

0079 

GO  TO  51 

0080 

32 

CONTINUE 

008  1 

51 

CONTINUE 

0082 

CALL  CODE 

0083 

WRITE<  ICUF,  IFMT2  )  <  Z<  I  4  > ,  I  4-  1  /  I  V  A  R  ) 

0084 

CALL  W R I T F<  IC.  IER,  ICUF> 

0085 

50 

CONTINUE 

0086 

26 

CALL  CLOSE<  IB  ) 

0087 

CALL  CL0SE<  IC  ) 

0  09  8 

STOP 

0  039 

END 

0  090 

SUBROUTINE  30RT<N> 

0  09  1 

CONNON  Y (  23 00  ) 

0092 

Nl-M-1 

0093 

DO  1  I -l , HI 

0094 

J«t  ♦  I 

0093 

DO  2  K-J  ,  N 

0096 

I  F  <  Y  C  I  ) .  L  E  .  Y<  K  )  >  GO  TO  2 

0097 

TEMP  «Y< I  ) 

0098 

Y  <  I  ) -Y  <  K  ) 

0099 

Y(K ) -T  EM  P 

0  100 

2 

CONTINUE 

0101 

l 

CONTINUE 

0  102 

END 

0103 

END# 

STACH 


( Nonparame t r i c  Descriptive  Statistics) 


Purpose: 

This  program  is  a  descriptive  package  for  nonparamet r i c  data 
which  includes  the  following  statistics:  mean,  median,  standard 
deviation,  middle  80  percentile  range,  semi - i nterquart i le  range, 
alpha  3,  and  alpha  4.  This  program  also  performs  a  chi-squared 
goodness  of  fit  test  for  resting  normality  based  on  a  frequency 
histogram  of  the  raw  data. 

Mathematical  Model: 


The  program  creates  a  histogram,  with  a  specified  number  of  classes, 
from  the  raw  data.  Then,  it  standardizes  each  variable  by  the  mean 
and  variance  of  the  histogram.  The  chi-squared  value  is  determined 
by  comparison  of  the  histogram  class  frequency  against  the  expected 
standard  normal  class  frequency.  This  is  done  by: 


(f.  -  E (f j ) ) 2 


E(f.) 

i 


where: 


f.  =  actual  frequency 
E(f.)  =  expected  frequency 
N  =  number  of  classes 


User  Considerations  and  Procedures: 


1.  Program  expects  data  created  in  matrix  form.  Each  record  son- 
tains  X..;  j  =  I,  M;  where  M  =  number  of  variables  in  data  set; 

i  j 

and  i  =  the  observation  (or  subject  number).  A  printout  of  raw 
data  would  show  m  d.ita  points  per  line. 

2.  The  data  analysis  can  be  either  displayed  on  the  CRT  or  hardcopy 
can  be  obtained  from  the  line  printer.  Option:  1  for  CRT  output, 
6  for  line  printer  output. 


3. 


A  pr i n tou t  of 
data  printout 
i s  des i gnated 


the  raw  data  can  be  obtained.  Option:  1  if  raw 
is  desired,  0  for  no  printout.  The  output  device 
by  the  above  option  (#2). 


4. 


A  printout  of  the  histogram  can  be  obtained, 
gram  printout  is  desired,  0  for  no  printout. 


Enter 


if  a  h i s to- 


265 


'"-r 


5.  Program  asked  if  test  for  normality  is  wanted.  Respond  1  for 
yes.  If  only  the  histogram  and/or  different  nonparamet r i c 
statistics  are  desired,  respond  0. 

6.  An  option  for  I AP  (rerun  program)  exists,  respond  1  if  you  wish 
to  rerun  program,  0  for  no. 

7.  A  printout  if  the  expected  normal  frequencies  can  be  obtained. 

Enter  I  if  desired,  0  if  not. 

8.  Parameters  required: 

a.  number  of  variables  in  data  file  (maximum  100) 

b.  number  of  subjects  (maximum  32767) 

c.  number  of  classes  in  histogram  (maximum  25) 

d.  number  of  variables  to  be  analyzed  (maximum  100) 

e.  enter  variable  numbers  which  are  to  be  analyzed 

f .  name  of  data  file 

g.  format  and  record  length  of  data  file  (see  DA30) 

9.  Printout  gives: 

a.  number  of  observations,  mean,  median,  mode,  standard  deviation, 
middle  80  percent  range,  semi  -  interquart i le  range,  alpha  3, 
alpha  4,  for  each  requested  variable 

b.  frequency  histogram  (optional) 

c.  expected  normal  frequency  (optional) 

d.  chi-squared  value  and  degrees  of  freedom  (optional) 

Comments : 

The  results  of  the  chi-squared  test  gives  the  calculated  chi-squared 
value  with  its  degrees  of  freedom.  To  determine  the  probability  level 
go  to  a  chi-squared  table.  This  test  is  very  conservative;  data  have 
to  be  very  unnormal  to  reject  null  hypothesis. 

Test  Data: 

The  data  used  to  test  this  program  is  the  =ame  as  SRM30  (See  SRM30) . 

This  program  was  hand-tested  using  a  Texas  Instrument  calculator  soft¬ 
ware  program.  The  progrqm  uses  double  precision  for  most  variables. 
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RU.STACH 

ENTER  NUMBER  OF  VARIABLES 

8 

ENTER  THE  NUMBER  OF  VARIABLES  TO  BE  ANALYZED 
I 

ENTER  NUMBER  OF  SUBJECTS 

64 

ENTER  it  OF  CLASSES  IN  THE  POLYGON;  MAX-25 

8 

POLYGON  WANTED?  i =YES ,  0=NO 
1 

TEST  FOR  NORMALITY  WANTED?  I=YES,  0=NO 
I 

IrtP  1-YES,  0  =  NO 

0 

ENTER  DATA  FILE  NAME 
r^STACH 

ENTER  DATA  FORMAT 

( 8 (2X , F6 . 2) ) 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
64 

ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LP 

6 

ENTER  NUMBER  OF  VARIABLES  TO  BE  INCLUDED 
I 

ENTER  1  FOR  RAW  DATA  PRINTOUT 

0 

ENTER  I  FOR  PRINTOUT  OF  EXPECTED  VALUES 


STATISTICS  FOR  VARIABLE 

1 

NUMBER  = 

64 

MEAN  = 

42.750 

MEDIAN  = 

35.500 

MODE  = 

25.500 

STANDARD  DEVIATION  = 

21  .034 

MIDDLE  80  PCT  RANGE  = 

57.173 

SEMI  INTERQUARTILE  RANGE  = 

18.133 

ALPHA  3  = 

.561 

ALPHA  4  = 

1.813 

FREQUENCY  POLYGON  VARIABLE  1 


17.500 

25-500 

xxxxxxxxxxxxxxxxxxxx 

25.500 

33.500 

xxxxxxxxxx 

33.500 

41  . 500 

xxxxxxxxx 

41.500 

49.500 

XX 

49.500 

57.500 

xxxxxx 

57.500 

65.500 

xxxxxx 

65.500 

73.500 

73.500 

81 . 500 

xxxxxxxxxxxx 

EXPECTED  NORMAL  VALUES 
13.1892185 
7.9343309 
9.3600349 
9.5714035 
8.4840889 
6.5187569 
4.3416157 
4.6005507 


VARIABLE  1 

CHI  SQUARED  FOR  NORMALITY 

CK 

3 

CK 

4 

CK 

5 

12.056.DF  =  6 
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“8TACH  T >00004  IS  ON  CR00002  USI..G  00028  BLKS  R-0243 

0001  FTN4 

POOR  PROGRAM  STACH 

0003  DOUBLE  PRECISION  Z1,T1,V!23> 

0004  COMMON  SC< 1 00 ) , I BUF < 254  ) , I 8<  272  ) , N J< 2 > , NAME < 3  ) , I F HT ! 2 0  ) , 

0003  CNWL(IOO) 

000  4  *.  LINE!  100  >,  Fft!  2S  >,  VLL<  2  5  >,  0,  THE(2  5  > 

0007  INTEGER  BLANK ,  EX 

0008  OATA  BLANK/ 2H  /,EX/2HX  / 

0009  101  CONTINUE 

0010  UR!TE!i,  395  > 

0011  393  FORMAT< “ENTER  HUMBER  OF  VARIABLES* > 

0012  READ!  1  . *  )  NV 

0013  WRITE!  1,2  98  ) 

0014  298  FORMAT! “ENTER  TNT  NUMBER  OF  VARIABLES  TO  8E  ANAL Y I ZED  “  ) 

0013  READ!!,*)  NW 

0014  URI TE<  1 / 299  > 

0017  299  FORMAT < “ENTER  NUMBER  OF  SUBJECTS"  ) 

0016  READ!  1  >  *  )  NP 

0019  MRITE< 1. 330 > 

0020  330  FORMAT! “ENTER  t  OF  CLASSES  IN  THE  POLYGON  ;  MAX-23* > 

0021  R EAO < 1 / -  )  NC 

0022  WRITE!!, 332  ) 

0023  332  FORMAT!  “POLYGON  WANTED  1  «  'ES  0-N0“> 

0024  READ! 1 , *  )  NJ<  1  > 

0023  WRITE! 1/331) 

0024  331  FORMAT*.  “TEST  FOR  NORMALITY  WANTED  ?  1-YES  0«N0“) 

0027  REAO! 1 / *  )  NJ! 2  ) 

0028  WRI TE!  1 1 334  ) 

0029  334  FORMAT! "  IAP  1-YES  0»N0“> 

0030  READ! 1 / *  )  IAP 

0031  WRITE! 1 >  333  ) 

0032  333  FORMAT! “ENTER  DATA  FILE  NAME') 

0033  READ! 1/1002)  NAME 

0034  1002  F0RKAT!3A2> 

0033  WRITE!  1/  1  003  ) 

0036  1003  FORMAT! “ENTER  DATA  FORMAT’) 

0037  R FAD! 1  •  1 0 04  )  IFMT 

0038  1004  FORMAT ! 20A2  ) 

0039  WRITE! 1/ 88) 

0040  88  FORMAT!"  ENTER  THE  RECORD  LENGTH  AS  IN  DA30*> 

0041  READ<1,*>  LENGTH 

0042  L EH -LENGTH/ 2 

0043  IF!  !  LEH*2  >.  HE  .  LENGTH)  t  E  N  =  L  E  N  +  1 

0044  LENGTH-LEH 

0043  IDCPC-l.ENGTH 

0044  I  F!  LENGTH  .11.144)  I  DC  8S  =  1  4  4 

0047  CALL  OPEN! 13,  lER-NAME, 3 , 0, -2 ,  IDCBS  ) 

0048  IF!  IER  .  CE  0  >  GO  TO  73 

0049  WRITE! 1, 39>  HAHF. IER 

0050  39  F  ORM  AT(  3A2 .  *  FAILED  TO  OPEN  ,  IER  -  "  ,  I  "5  > 


A  Oil 

STOP 

0032 

73 

WRIT£< 1,98) 

0033 

9P 

F  3*1  AT ( "ENTER  1  FOR  CRT  OUTPUT,  6  FOR  LP 

0034 

READ < 1 , *  )  IUHIT 

0035 

WRI TE(  1,934  ) 

0036 

934 

FORMAT ( *£NTER  HUMBER  OF  VARIALBES  TO  8E 

0037 

READ < l  ,•  >  ( HW L ( I  ),  I»l ,NU  ) 

0031 

WRI  TE<  1.437  ) 

0031 

437 

FORMAT < “ENTER  1  FOR  RAW  DATA  PRINTOUT*) 

0060 

READ  < 1 , *  )  IPTO 

0061 

WRI TE< 1,3487) 

0062 

3487 

FQ2M AT  v  *  ENTER  t  FOR  PRINTOUT  OF  EXPECTED 

0063 

READ< 1 , •  )  I  TP 

0064 

00  231  131*1, NW 

0063 

SUHX-0  . 

0066 

SUHX2-0 

0067 

DO  4  I -l , HP 

0069 

CALL  READF< 18. IER, IBUF) 

0069 

CALL  CODE 

0070 

REAO< IBUF, IFHT  )  ( SC < J  ) , J *1 , NV  ) 

0071 

IF  (IPTO. CO. 1)  WRITE<  IUHIT, IFHT)  <SC<J),. 

0072 

X*SC( NWL(  131  )  ) 

0073 

SUHX -SUHX+X 

0074 

$UHX2*SUNX?+X*X 

0073 

IF<  I  HE.  1  )C0  TO  400 

0076 

XL*X 

0077 

XH-X 

0078 

400 

IF<X  LT.  XL)  XL-X 

0079 

I F< X.GT.XH)  XH-X 

0090 

4 

CONT  IHUE 

0091 

SHC-HC 

0082 

IPTO-O 

0093 

SMP-HP 

0094 

RINC-XH-XL+1 

0083 

C I-R INC/SNC 

0096 

HCI-CI+ . 99'*99 

0087 

C I*HCI 

0088 

00  7  K • 1 , HC 

0089 

7 

FR<  K  >«0 

0090 

DO  8  K-t.HC 

0091 

FK-K 

0092 

8 

VLL( X  )-XL- . 3  +  ( FK-i  )*CI 

0093 

CALL  RWNDF<  IB  ) 

0094 

DO  9  I«l , HP 

0093 

CALL  REA0F< IB, IER, IBUF  ) 

0096 

CALL  CODE 

0097 

READ <  IBUF.  IFHT  )(  SC <  J  >,J»i,  HV  ) 

0098 

XC»SC<  MWK  131)) 

0099 

KK-<  XC-VLL<  1  )  )/CI+  1 

0100 

10 

rR<KX)-FR<KK)  +  i 

0101 

9 

C OH T  IHUE 

2  70 


~~~  ~  I  'll II IH HIM  '  I I II II HU— in  ~~  V-.  .  » 


•  ) 

INCLUDED*  ) 

VAI  UE3”  > 

J  =*1  ,  NV  ) 


0102 
0103 
v  104 
OIOS 
0104 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0113 
0114 
0117 
0118 
0119 
0120 
4121 
0122 
0123 
0124 
0123 
0124 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0133 
0134 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0143 
0244 
0147 
0148 
0149 
0130 
0131 
0132 
0133 
0134 
0133 
0134 


C001 1 • 8HP 
C081-  ?3 • 3NP 
C003-. 3-SHP 
C083-. ?3*SNP 
C  00  9  -  .  9*  S  HP 
SX-0 
3SX-0 
SCX-0 
sax-o 

00  12  J • 1 <  HC 
SMC- J 

AA- VLL ( 1  >+CI*<  SMC-  . 3) 

3X-8X*FR<  J  )  -A A 
S3X-SSX*FR< J  )•( AA**2> 

SCX -SCX*  FR< J )•<  A A* -3  > 

12  SaX-SQX^FRe J >*( AA*«4) 

CTH-SX/'SHP 

3 IC-80RT C SKP-SSX-SX**2  )  7  3N P 
ALPH-SCX-3*CTN-SSX*2*SNP*<  CTN**3  > 

ALPH-ALPHA SNP  S I  G •*  3  > > 

8£T-8QX-4*SCX*CTH*4-SSX*<CTH*-2 >-3*$MP-<CTN**4 ) 
BET -BETA SHP*<  S  1  G*  *  4  ) ) 

AA-0 

00  14  J-l  ,NC 
BB- A A+  FR  < J  ) 

IF<  BB. GE . C001  )G0  TO  IS 

AA-BB 
GO  TO  14 

15  0E1 ■ VLL< J  )  +  CI-<COOi“AA)/FR(J  > 

GO  TO  14 
14  CONTINUE 

14  AA  =  0 

MRI  TE<  IUN IT , 443  ) 

443  FORHATC  CK  3  ■> 

00  17  J-l.NC 
BB-AA+FRC J > 

I  F(  88  .  GE  CO  Q  1  )C0  TO  18 

AA-BB 

GO  TO  17 

18  QTl-VLK  J  >+Cl*<C0Ql-AA)7FR(  J  > 

GO  TO  19 

17  CONTINUE 

19  AA-0 

00  20  J- l <  NC 
B8-AA+FR<  J  ) 

IM 88. GE . C005 >G0  TO  21 

AA*B8 

GO  TO  20 

21  0E3-VLL( J  )*CI*<C0D5-AA)/FR< J  > 

GO  TO  22 

20  CONTINUE 

22  AA-0 

00  23  J-  1  ,  NC 
88-AA  +  FR*  J  > 

IF<  88. GE . C0Q3  )  GO  TO  24 


271 


0137 

0138 

0139 

24 

9160 

9161 

23 

9162 

23 

9163 

9164 

664 

9163 

9166 

9167 

9168 

9169 

9179 

27 

9171 

9172 

26 

9173 

28 

9174 

9173 

9176 

9177 

9178 

9179 

9189 

29 

9181 

9182 

667 

9183 

9184 

9183 

9186 

9187 

9188 

9189 

30 

9199 

9191 

9192 

9193 

9194 

9193 

9196 

9197 

31 

9198 

9199 

9299 

33 

9291 

9292 

9293 

0204 

34 

0293 

109 

9206 

0207 

33 

0298 

32 

0209 

200 

AA*88 

GO  TO  23 

QT3-VLLC J )*CI*CCOQ3-AA)/FRCJ  > 

GO  TO  23 
CONTINUE 
AA*0 

U RI  TEC IUNIT,664> 

FORNAT<  *  CK  4  "> 

00  26  J-l-NC 
BB*AA+FRC J  ) 

IF< 88. GE , C009 >G0  TO  27 

AA*B8 
GO  TO  26 

DE9-VLLC  J  >*CI*CC0D9-AA)/FRC J  > 

GO  TO  28 
CONTINUE 
RN$o-oE9-DEl 
3IQ"CQT3-QT  1  )/2 
AA-FRC 1) 

NX*  1 

DO  29  J*  1  . NC 

I F<  FR<  J  )  .  GT  .  AA  )NX-J 

I  F<  FR<  J  >  .  GT  .  AA  )A A*FR(  J  > 

CONTINUE 

URI TE(  IUN IT , 667 ) 

FORNAT ( “  CK  3  •) 

HNX-NX+t 

NHX-NX-l 

RAT-CFRC  NNX  >>/CFRC  MNX  >  +  FRC  NHX  >  > 

VH0D-VLL<  NX  )♦ R  AT  *C  I 
I  9* I  UN  I T 

URITE<  1 9  < 30  >131,  NP  ,  CT  H , DE5,VH0D,SIG,  RN80>  3  I Q , A  LP  H  .BET 
F0RHATC1H1, "STATISTICS  FOR  VARIABLE", 13/1 X, "NUMBER  = 
XIX, "MEAN  * • , F 7 . 3/  1  X ,  "MEDIAN*", F7  3/  1 X  ,  “MODE  *  “  ,  F 7.3 
X'STANDARD  DEVIATION  =  " , F7 . 3/ IX , " N  IDDl E  80  PCT  RANGE 
XF7 . 3/1 X , 

X" SEN  I  INTERQUARTILE  RANGE  -  ■  ,  F7 . 3/ 1 X , " ALPH A  3  *‘,F7 

X" ALPHA  4  F7.  3) 

I F< NJC  1 > . EQ  .0  ) GO  TO  200 
URI TEC IUNIT/31  >131 

FORNATC IH1 , "FREQUENCY  POLYGON  VARIABLE  ",I3> 

00  32  J-l/NC 
DO  33  K* 1 , 100 
LINECK  >-BLAMK 
NBAR-FRC  J  > 

IF<N  BA  RE  3.0)00  TO  100 
DO  34  K* 1 , N BA R 
LINECK  )-EX 
HL-VLLC  J  )  +  C  I 

URITEC  IUHIT ,33 )VLLC  4 ),HL,C  LINEC  K  )  ,  K*  1  <  100) 

FORNATC 1H0, ¥7  .  3, 1H  ,F7.3,2X,100At  ) 

CONTINUE 

IFC  NJC  2) . EQ .0 ) GO  TO  1 1 


2  72 


*  ,  I  4/ 
MX, 


3/  IX  , 


0210  C  H I  »  0 

0211  C  SIG-S8RT<  (  SUHX2-3UMX*SUftX/'3HP  )/(  SHP-  1  .  )  > 

0212  C  CTN-SUMX/SNP 

0213  DO  93  IJ-1.NC 

0214  21 r< VL L<  IJ >-CTM)/SIG 

0213  CALL  YNORN<  Z1 , T1  > 

0214  93  V<  I  J  )•  T1 

0217  NCONC-I 

0218  THE< 1 >«SHP*V< 2 > 

0219  00  733  IV-2,HCC 

0220  J3-IVM 

0221  733  TH£<  IV >-SNP*DA8S< V< J3 >-V< IV)  > 

0  222  734  FQRHAT<3X,F14  7) 

0223  TH£< HC  )«SNP*0A8S< 1 -V< HC > > 

02*4  iF<ITP .Efl.l)  URITE(IUNIT,9812> 

0223  93  12  rORNATC  EXPECTED  NORMAL  VALUES  *,5X,F14.7) 

0226  I  F  <  ITP.EQ.l  )  WRITER  IUNIT  ,  734  )  t.  TH  E  <  I  K) ,  I K ■ 1 , NC  > 

0227  DO  248  J  *  1 , HC 

022  3  I F<  J  . Efl .  NC  )G0  TO  40 

022  9  I  r  <  7  HE  <  J  )  .  GE  .  5  >G0  TO  40 

0230  K ■ J  ♦  1 

0231  HCC-NCC-1 

0232  TH£( K)-THE< J  )»THE(K > 

0233  FR<  K  >«FR<  K  >*FR<  J  > 

0234  GO  TO  248 

0233  40  CHI»CHI*<lFR<J  )- TH E <  J  ))**2>/THE(J  > 

0236  248  CONTINUE 

0  237  WRITE!  IUNIT, 41  )I31 , CHI, HCC 

0238  41  FORMAT! IH071X,  ■VARIABLE", 13,  *  CHI  S8UARED  FOR  HO  R II A  L  I  T  Y« *  ,  F  7  .  3  , 

0239  X* , OF  »■ , I  3  > 

0240  11  CONTINUE 

024  1  23  1  CALL  RWKDF!  18  ) 

0  242  CALL  CLOSE(  IB  ) 

0243  IF(IAP.EQ.t)  GO  TO  101 

0244  END 

0245  END* 
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CH1RA 


(Coefficient  of  Concordance) 


Purpose : 


This  program  finds  Kendall's  coefficient  of  concordance,  W,  tests 
for  its  significance,  and  provides  reliability  figures  of  the 
ranked  data.  Wilcoxin  sign  rank,  Z,  can  also  be  obtained  for  all 
variable  combinations. 


Mathematical  Model  and  Layout  of  Design: 

In  our  layout,  we  have  N  objects  (or  individuals)  ranked  in  K-sets. 
Each  set  is  ranked  independently  of  each  other. 


1 

2 

3 


1 

2 

3  .... 

M 

rl  1 

r|  2 

r  1 3  .... 

r  1  n 

r21 

r2  2 

r23  '  '  •  • 

f2n 

r3l 

r32 

r33  •  •  •  • 

f3n 

rkl 

rk2 

rk3 

rkn 

1.  Mount  a  magnetic  tape'.  (any  scratch  tape  wi  11  do)  . 

2.  Program  expects  ranked  data  in  k  x  N  matrix  form  to  have  been 
created  (see  program  RAIIK).  A  printout  of  data  would  show  N 
observations  per  line. 

3.  The  data  analysis  can  be  either  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 

output,  6  for  line  printer  output. 

4.  A  printout  of  the  raw  data  can  be  obtained.  Option:  I  if  raw 

data  printout  is  desired,  0  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (?3)  • 

5.  Program  asks  if  Wilkoxin  sign  rank,  Z,  is  desired.  Enter  1  for 
yes,  0  for  no,  NOTE:  The  program  prints  out  the  Wilcoxin  Z 
for  a  1  1  pairs  of  variables  and  an  approximate  probabil  i  ty  .  The. 
number  of  signed  ranks  =  N  (N  -  l)/2. 


>  :  4 


6.  Parameters  required: 


a.  number  of  columns  ~  N  =  (maximum  70) 

b.  number  of  rows  «  k  =  (maximum  30) 

c.  enter  1  for  correction  of  ties  (Mot  to  correct  for  ties  s 
incorrect!  If  data  have  been  created  using  RAMK,  ties  have 
already  been  assigned  average  ranks.) 

d.  name  of  ranked  data  file 

e.  format  and  record  length  of  data  file  (see  DA30) 

7.  Printout  gives: 

a.  raw  data  (optional) 

b.  W'lkoxin  2  (optional) 

c.  Kendall's  W,  chi-square  with  degrees  of  freedom,  average 
row  reliability,  and  total  reliability 

d.  S_,  sum  of  squared  deviations  from  mean  of  nth  object  (see 
commen  ts ) 


Comments : 

The  hypothesis  being  tested  with  Kendall's  W  is  whether  k-sets  of  rank¬ 
ings  are  independent.  Kendall's  W  expresses  the  degree  of  agreement 
among  the  k-sets  (judges,  etc.)  in  ranking  the  IT  objects.  When  N  >  7, 

W  is  related  to  the  chi-squared  distribution  by 

X2  =  k ( N  -  ])W  with  df  =  M  -  1 . 

2 

The  program  gives  the  X  value  in  all  cases.  If  N  ~]  this  value 
will  be  incorrect.  For  critical  values  in  this  case  (N<7)  see 
S  .  Si  eg.- I ,  Nonpa ramct r i c  Statistics  for  the  Behav io  ra 1  Sc  i  ences , 

Table  R,  P.  2  36 .  This  table  gives  critical  values  of  S,  which  tile 
program  prints  out.  The  table  shows  minimum  critical  values  of  S 
for  the  .05  and  .31  level  of  significance. 

If  M  •  7,  compare  the  chi-square  for  R,  printed  by  program,  with 
the  chi-square  value  from  any  table  of  critical  values  (i.e., 

Table  C,  P.  249,  in  S.  Siegel). 


The  average  row  reliability  equals  (kW  -  1 ) / (W  (k  -  1)).  Total 
reliability  equals  (kW  - 1 ) / ( W  (k  -  1)). 

In  Wilcoxin  Z,  the  hypothesis  we  are  testing  is  whether  2  variables 
( i n  each  Z)  d i f fer . 

Test  Data: 

This  program  was  tested  using  data  from  S.  Siegel ,  Nonparametr i c 
Statistics  for  the  Behavioral  Sciences,  McGraw-H i 1 l”  195b,  P •  233-237 . 


RU.CHIRA 

ENTER  DATA  FILE  NAME 
KHIRA 

DO  YOU  WISH  TO  COMPUTE  WITH  TIES  l=YES,  0=NO 

1 

NUMBER  OF  COLUMNS  (MAX  70)  : 

A 

NUMBER  OF  ROWS  (MAX  30) : 

10 

ENTER  DATA  FORMAT 
(M  IX  , F3 .0)  ) 

ENTER  6  FOR  LINE  PRINTER  OUTPUT,  1  FOR  CRT 

6 

ENTER  1  FOR  RAW  DATA  PRINTOUT,  ELSE  ENTER  0 
1 

DO  YOU  WANT  WILKOXIN  SIGN  RANK  Z?,  1 =YES ,  0=NO 
I 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
16 

CHIR  :  STOP  0000 
CTAPE  ABORTED 
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CHIRA  T=00004  IS  ON  CR00002  USING  OOOOl  BLKS  R=0005 


0001 

:  SV,  4 

0002 

: RP , CTAPE 

0003 

: RU , CH 1 R 

0004 

:0F, CTAPE 

0005 

:  SV ,  0 
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■CHIR  T=00003  IS  ON  CR00002  USING  00021  BtKS  R«0000 


0001  FTH4 
0002 
0003 
0004 
0003 
0  00  4 
0007 
0008 
0008 
0010 
001  1 
0012 
0013 
0014 
0  013 
0014 


PROGRAM  CHIR 

COMMON  SC<30»70),RS<70>,D<  30  > , D R( 30>,RA(30, 70> 
DIMENSION  TA8( 23,3  ) , I FMT<  20  > ,  IT  APEC  3  ) 

DATA  ITAPE/2HCT, 2HAP»  2HE  / 

DATA  TAB<6,  1  >,  TAB<  4,2  >,  TAB<4, 3>/2 . 227, 99. 99  9,9  9. 9  99/ 
DATA  TAB<  7, 1 ), TAB( 7 , 2  ), TAB(  7,  3)/2 . 028, 2 . 344 , 99 .999/ 
DATA  TAB<  8,  1 >, TAB<  8, 2  ), TAB<8, 3)/l . 940, 2 .2  40 , 2. 521  / 

OAT  A  TAB<  9,  1  ), TAB<  9 ,2  ), TABC9, 3  > / 1  . 953, 2.310,3.429/ 
DATA  TAB< 10, 1 > ,TAB< 10,2  )  ,TAB< 10,3  )/l  . 988, 2 . 293 ,2  497/ 
DATA  T  AB  (  11,1  ) , T  AB  <  11  ,2  > , T  AB (  11, 3>/l. 954. 2.  312, 2.  49  0/ 
DATA  TAB(  12,1  >,TAB<  12,2  >,TAB(  12 , 3  ,  / 1  .941,2.273,2.310/ 
DATA  TA8< 13, l > , TAB<  13 ,2  ) , TAB<  13, 3 >/l  . 992, 2 .  271 , 2  49  1/ 
OATA  TA8<  14,1  >,TA8<  14,2  >  ,  T  A  8  <  14, 3>/l. 977.  2.  291, 2.  48  0/ 
DATA  TAB< 13, 1  ) , TAB<  13 ,2  ) , TABC  13, 3  >/l . 988, 2 . 272 , 2 . 499/ 
DATA  TAB( 14,1 >,TAB<  14,2  >,TAB<  14,3  )/i  9  43, 2. 2  73,2  48  2/ 


0017 
0019 
0019 
0020 
0021 
0022 
0023 
0024 
0023 
0024 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0033 
0034 
0037 
003C 
0039 
0040 
004  1 
0042 
0043 
0044 
0043 
0044 
0047 
0048 
0049 
0030 


DATA  TAB< 17, 1 > ,TA8< 17,2  >,TAB<  17,3  >/l  945, 2  294,2  53  3/ 
DATA  T  AB  <  18,1  ),TAB< 18,2  > , T  ABC  18,3  )/t .982, 2  284,2 . 504/ 
DATA  TABC 19, 1 >, TABC 19,2  >,TAB<  19, 3  >/i  . 9  72, 2 . 294 ,2 . 533/ 
DATA  TABC 20, 1 >, TABC 20,2  >,TAB< 20,3 )/l . 979, 2. 3  15 ,2 . 50  1/ 
DATA  TASK  21 , 1 >,TAB<  2i ,2  >,TAB<  21 ,3  >/l .964, 2. 31  1 ,2 . 52  0/ 
DATA  TABC  22, 1 >, TABC  22 ,2  >, TABC  22, 3 )/l  . 944, 2 .  289 , 2  51  4/ 
DATA  TAB <23, t ),TABC 23,2  >,TA8<  23,3  >/l . 9  77, 2. 3  I  2,2 . 52  4/ 
DATA  TABC  24, t  >, TABC 24,2  >, TABC  24,3  >/l . 971, 2  3  14 ,2  54  3/ 
OATA  TAB<  25, 1 ) ,TA0<  25,2  KTABC  25,3  )/i  .978, 2  301  ,  2 . 543/ 
SO  REBIND  8 
173  S-0 

CALL  EXECC 9 , ITAPE) 

REWIND  8 

READC 8,239)  IER, ICOM 
IF  < IER. LT. 0)  GO  TO  333 
239  F0RHAT<2I5) 

REA D<8,2031  )  I T I ES , NK , N R ,  I  UN  I  T 
2031  F0RMAT<4I3) 

READ<  8,2033  >  IFMT 
2033  F0RMATC20A2) 

DO  70  1-1  ,70 

70  RS<  I  )=0 

DO  71  1=1,30 
DR<  I  )«0. 

71  DCI>-0 
SUM  ■  0 
T  =0 

DO  2  I =1 , NR 

READ<  9 , I FHT  )  < SC U , J  ) , J »  1 , NK  ) 

2  CONTINUE 

DO  4  l  =1 , NR 
DO  4  J  »l , NK 
RA<  I  ,  J  )■  .  5 
DO  4  K«l , NK 


28  I 


0031 

IF<SC<  1,4  >  .  EQ . SCC  I.  K>  >»A<  1,4  >«RA<  I  ,  j  >♦  .  3 

0032 

IFC  SCC  I,  J  >.  ST  SCC  I  .  K>  )RA<  I  ,  J  )*RA<  I  ,  J  )+l 

0033 

4 

C  OH T  IHUE 

0034 

00  6  0  1=1  ,  H  K 

0033 

00  60  JM-NR 

0036 

60 

RS<  I  >-RS<  I  >+RA<  J  ,  I  ) 

003  7 

00  22  1=1  <  M K 

0058 

22 

S  UH  *  $U  H+  R  SC  1  ) 

0038 

SUH-SUH/NK 

0060 

DO  21  1*1  ,  NK 

0061 

21 

S  *8 ♦ <  R  SC  I  >-  SU H  >**2 

0062 

IFC 1TIES . EQ  .0  >G0  TO  61 

0063 

DO  32  J*  1  ,  NR 

0064 

N*l 

0065 

SUH-0 

0066 

DO  31  1*1  ,  NK 

0067 

M*1 

0068 

<2*1+1 

0069 

DO  30  <•  K  2 , HK 

0070 

IFC  RAC  4,  I  ).  HE  .  RAC  4  ,  K)  >GQ  TO  30 

0071 

H  =*H  +  1 

0072 

DCH  ) *R AC  J  ,  I  > 

0073 

30 

CONTINUE 

0074 

IFC  M  .EQ.  1  >GQ  TO  31 

0073 

DO  29  <1-1, M 

0076 

IFC  N  .EQ.  Ki  >C0  TO  28 

0077 

IFC  DCH  ).  EQ.  DC  <1>)G0  TO  31 

0078 

29 

CONTINUE 

0079 

28 

SUH-SUH  +  C  M**3-H) 

0080 

N*H  +  1 

0081 

31 

COMT  IH'JE 

0082 

IFC  H  EQ .  1  AND  SUM  EQ.COGQ  TO  32 

0083 

T*T*SUM/  12 

0084 

32 

CONTINUE 

0083 

61 

ANK*NK 

0086 

A  NR  *  NR 

0087 

W<*S7( C<  C  AMR**2)*C  ANK  **3 -AH<  )  V  12  )-C  ANR  *T  ) ) 

0088 

CHI<*ANR  +  C AH<-  1  >+W< 

0089 

NDF<*H<- 1 

0090 

ARB-C AHR*y<-l  )/<  ANR-1  ) 

0091 

SBR*AHR*ARB/<  1  +<  AHR-1  )*  A  R8  ) 

0092 

IFC ITIES. EQ . 1  )  GO  TO  52 

0  09  3 

WRI TEC  IUN IT, 33  > 

0094 

33 

F0RNATCIH1,*  DATA  CALCULATED  WITHOUT  CORRECTION 

FOR  TIES 

0093 

GO  TO  31 

0096 

32 

WRITEC  I U  N I T  ,  3  4 > 

0097 

54 

FQRHATC1H1,*  DATA  CALCULATED  WITH  CORRECTIONS  FOR 

TIES*  > 

0098 

51 

WRITEC IUNIT, 9/CH IK, NDFK 

0099 

9 

FORMATC  *  CHI  SQUARE  FOR  R*  ",F8.3,"  , DEGREES  OF 

FREEDOM 

0  100 

WRITEC  IUNIT  ,  10  ~>W< 

0101 

10 

FORHATC"  KENDALL'S  W®  * , F6  3  ) 

0102 

WRITEC  I  UNIT , l  1  >4R8 . SBR 

0  103 

1  1 

FORHATC ’  AVERAGE  ROW  RELIABILITY  -  ",F6.3,"  TOTAL 

REl.  “  , 

0  104 

l* I A3 ILITY  »  • , F6 . 3 .  //  ) 

0103 

WRITEC IUNIT, 9 3 6)  S 

0106 

936 

FORNATC  S  «  *  ,  3X.F10. 3. //> 

0107 

IF< ICON. HE. 1 >  STOP 

0108 

DO  200  1-1.30 

010  8 

200 

DR<  1  >»0 

0110 

NKR-NK-l 

0111 

DO  12  1-1 »  HKR 

0112 

I I-I  +  l 

0113 

DO  12  J-1I.HK 

0114 

NN-NR 

0113 

DO  13  K-t.NR 

01U 

13 

DCK  >-SC(  K, I >-SC( K » J  ) 

0.17 

NPLUS-0 

0118 

00  14  K-l  ,NR 

0119 

IF<  D<  K  > . EQ . 0 )DR(  K  >  =  0 

0120 

IF<D<K>.EQ.0>HN»NN-1 

0121 

IF<  D<K  >.  EQ.  0>G0  TO  14 

0122 

I  F < D<K  >. CT . 0>NPLUS«NPLUS+1 

0123 

DR(  K  >»  .5 

0124 

DO  14  L*  1 .NR 

0123 

I  F<  Dl  L ) . EQ  . 0 )C0  TO  14 

0126 

IF<A8S<D<K)>.EQ.ABS<D<L)>)DR<K)-DR<K>+.5 

0127 

IF<  ABS<D<  K ) ) . GT . ABS<  D<L  )  >  >  DR  < K  >»DR( K  >♦ 1 

0128 

14 

COKTINUE 

0129 

NNH-<  NN/2  ) 

0130 

T-0 

0131 

IF< NPLUS . GT .NNHIGO  TO  16 

0132 

DO  17  K«  1  , HR 

0133 

IF<  D<  K  ). GT. 0 )T-T+DRCK ) 

0134 

17 

CONTINUE 

0133 

GO  TO  19 

0136 

16 

DC  18  K-l.NR 

013? 

IF<D<K).LT.O)T-T+DR<K> 

0138 

18 

CONTINUE 

0139 

19 

FHH-HN 

0140 

TOP-FNN*< FNN+1 >/4 

0141 

BOT-SQRT< TOP*< 2*FNN*1  >/6 ) 

0142 

2EE»v  T-TOP )/BOT 

0143 

I  F<  NN . LT . 6 )G0  TO  100 

0144 

IF<NN.GE.6.AHD.NN.LE.23>G0  TO  101 

0143 

PR-  .  3 

0146 

I  F< ZEE  C£  .1.96  >PR- . 03 

0147 

IF<  ZEE .  uE .2 . 327)PR- .02 

0148 

I  F<  ZEE .GE .7 ,373)PR- .01 

0149 

GO  TO  102 

01J0 

101 

PR-  .  3 

0131 

IF< AB8(ZEE).GE  TAB<HN,i >>PR-.03 

0132 

IF(  ABS( ZEE  ) .GE .  T  AB( NN  ,  2 >  >PR- . 02 

0133 

IF(ABS(ZEE).G£  . T ABC  NH , 3  )  >PR-  .  01 

0134 

GO  TO  102 

0133 

100 

PR-  .  3 

0136 

102 

NR  I  TEC I UN  IT, 20 >1 , J , ZEE, HH, PR 

0137 

20 

FORNATC  VAR  VIZ,'  AND  VAR  •  ,  1 3 ,  *  UILCOXIN  SiGNED  RANK 

0138 

XF8 . 3 » *  •  OF  PAIRS  •  ',13,"  ALPHA  LEVEL  S  GNIFICANCE  -‘ 

0139 

X/7  > 

0160 

12 

CONT INUE 

0161 

333 

STOP 

0162 

ENA 

0163 

ENO* 

233 
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0001 

FTH4 

0002 

0003 

0004 

0003 

121 

0006 

0007 

98 

0003 

0009 

0010 

0011 

194 

0012 

0013 

0014 

195 

0013 

0016 

196 

0M7 

0018 

0019 

198 

0020 

0021 

199 

0022 

0023 

987 

0024 

0023 

0026 

43 

002  7 

0028 

0029 

393 

0030 

'031 

0032 

98 

0033 

0034 

0033 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

143 

0043 

0044 

20 

0043 

0046 

0047 

123 

0048 

0049 

0030 

204 

PROCRAH  CTAPE 

COHHCH  SC( 70)/  IHAHE< 3  )/ IFNT<  20 > / 1 8< 272  ) , I BUF< 236  > 

WRI  TEC 1/ 121  ) 

FORMATC  ENTER  DATA  FILE  HAME') 

REA 0(1/98)  INANE 
FORMAT <  3A2 ) 

WRI  TE<  1/  194  ) 

REWIND  8 
REAOCl,*)  ITIES 

FORMATC  *  DO  YOU  WISH  TO  COMPUTE  WITH  TIES  1-YES/  O-NO 
WRI  TE<  1/  195  ) 

READ< 1 / •  )  NK 

FORMATC  NUMBER  OF  COLUMNS  (MAX  70)  *> 

WRI  TE<  1.  196) 

FORMATC  *  NUMBER  OF  ROWS  (MAX  30  )  :  «) 

READCl,*:  NR 
WRITEC  1/  198  ) 

FORMATC  ENTER  DATA  FORMAT *  > 

REACC  /  199)IFMT 
FUR  MAT  (20A2) 

WRITEC  1/ 987  ) 

FORMATC  ENTER  6  FOR  LIME  PRINTER  OUTPUT,  1  FOR  CRT*) 
READCl,*)  I  UN  I  T 
WRITEC  1/43) 

FORHATCENTER  1  FOR  RAW  DATA  PRINTOUT,  ELSE  ENTER  0*) 
READCl,*)  I PTO 
WRITEC  1, 393  ) 

FORMAT C " DO  YOU  WANT  WILKOXIN  SIGN  RANK  Z  ?  ,  1-YES,  0- 
READCl,*)  ICON 
WRITEC  1/88) 

FORMATC  ENTER  THE  RECORD  LENGTH  AS  IN  DA30") 

REAOC 1 / ♦  )  LENGTH 
LEN-LENGTH/'R 

IFC C LEN*2  ). HE . LENGTH)  LEH-LEN  +  1 
LENGTH-LEN 
I 0C88-LENGTH 

IFC LENGTH  LT. 144  )  IOCBS-144 

CALL  OPENC IB,  I ER , I N AME , 3 , 0 , -  2 , I  DC BS > 

IFC  IER  GE  .0  )  GO  TO  123 
WRITEC  1,  145  )  INANE,  IER 

F0RMATC3A2,  "  FAILED  TO  OPEN  ,  IER  -  *,I3> 

WRITEC8, 20)  IER,  ICON 
F0RMATC2I5) 

REWIND  8 
STOP  143 
CONTINUE 

WRITEC  8.  20)  IER,  ICON 

WRI TEC  8. 204  >  X  TIES , HK , NR , XUHIT 

FORMATC  4  I  3 ) 


284 


0051 

WRIT £(  8/2 03  )  IFHT 

0032 

205 

FORMAT ( 20A2  ) 

0033 

00  10  I-l/NR 

0034 

CALL  READF< 18/  IFR/  IBUF) 

0033 

CALL  CODE 

0036 

REAO<  I8UF/ IFHT  )  (SC<J>,J»l,NK> 

0037 

WRI  TE(  8,  IFHT)  (3C(J>»J*1.HK) 

0038 

IF( IPTO. EU  1 )  8RITE< IUHIT, 209 >  ( S C < J > , J «t / NK > 

0033 

209 

FORMAT ( 8F  10 . 4  ) 

0060 

IF< IPTO. EO. 1 >  «RITE< IUHIT/ 2090) 

0061 

20  90 

FORM AT<  3X > 

0062 

10 

CONTINUE 

0063 

REWIND  8 

0064 

CALL  CLOSE<  IB  ) 

0063 

END 

0066 

EHO* 

CH !  SQ.  (Chi-square) 
Purpose: 


This  program  performs  a  chi-squared  test  for  independence  on  a 
row  by  column  (R  x  C)  contingency  table  and  calculates  tne  con 
tingency  coefficient. 

Layout  of  Design: 


A,  A2  '  • 

...  A 

c 

Tota  1 

B1 

1 2  ‘  ' 

.  .  .  ab, 

1  c 

Rl. 

B2 

ab„ .  ab. n  .  . 

21  22 

.  .  .  ab„ 

2c 

R2. 

B 

ab  ,  ab  „  .  . 

.  .  .  ab 

R 

r 

rl  r2 

rc 

r . 

Tota  1 

R.l  R.2 

R 

.  c 

N 

where : 

R.  .  =  total  in  i_th_  column 

R..  =  total  in  jth  row 
J  — 

N  =>  overa  II  total 

Mathematical  Model: 


where : 


0,.  =  observed  value  in  i, 
'  J 

E..  =  expected  value  in  i, 


jth  pos i t ion . 
j  th  pos i t i on  = 


R. .  *  R../N 


The  hypothesis  to  be  tested  is: 

Ho:  A,  =  A-  =  A,  =  A 
12  3c 

User  Cons i aerat ions  and  Procedures: 

1.  Program  expects  data  in  a  R  x  C  matrix  form.  A  printout  of 
rav/  data  would  show  C  data  points  per  line. 

2.  The  data  analysis  can  be  either  displayed  on  the  CRT  or  a  hard¬ 
copy  can  be  obtained  from  the  line  printer.  Option:  1  for  CRT 
output,  6  for  line  printer  output. 

A  printout  of  the  raw  data  can  be  obtained.  Option:  1  if  raw 
data  printout  is  desired,  L  for  no  printout.  The  output  device 
is  designated  by  the  above  option  (#2) . 

4.  Parameters  required: 

a.  number  of  columns  (maximum  100) 

b.  number  of  rows  (maximum  100) 

c .  data  file  name 

d.  format  and  record  length  of  data  fiie  (see  0A30) 

5.  Printout  gives: 

a.  raw  data  if  optioned 

b.  calculated  chi -squared  value  with  d.f.  =  (R  -  1)‘"(C  1) 

2  2 

c.  the  contingency  coefficient,  C  =  (X  /(X  +  N))**.5 

Comments : 

Program  provides  calculated  chi-squared  value  which  can  be  compared 
to  a  critical  chi-square  table  to  determine  probability. 

Test  Dat.  : 

This  program  was  tested  using  data  from  S.  Siegel,  Nonparamet  r i c 
Statistics  for  the  Behavorial  Sciences,  McG  raw-H  i  1  l”  1956,  P  .  T9"8 . 
Program  uses  double  precision  for  accuracy 
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RU.CHISO 

CHI -SQUARED  TEST  FOR  INDEPENDENCE  OF  A  RXC 

CONTINGENCY  TABLE  AND  THE  CONTINGENCY  COEFFICIENT 
INPUT  FILE  NAME 
//CHI  SO 

ENTER  DATA  FORMAT 

(4 ( 1 X , F4 .0) ) 

NUMBER  ACROSS 
4 

THE  NUMBER  DOWN: 

3 

ENTER  THE  RECORD  LENGTH  AS  IN  DA30 
20 

ENTER  1  FOR  PRINTOUT  OF  RAW  DATA,,  ELSE  ENTER  l 
1 

ENTER  1  FOR  CRT  OR  6  FOR  LINEPRINTER  OUTPUT 

6 

THE  CONTINGENCY  COEFFICIENT  =  .38865 
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RAJ  DATA 


23. 

40. 

16. 

2. 

1 1 . 

75- 

107. 

14. 

1 . 

31  - 

60. 

10. 

CH I  -SQAURED  =  69-3893283  DEGREES  OF  FREEDOM  =»  6 
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•  f 


mirrnJ'rr  miTMi 


*  CH IS  Q  T-46003  IS  ON  CR60442  USING  44614  BLKS  R-0644 


4441 

FTN4 

6642 

6443 

6664 

6663 

6066 

4447 

6668 

981 

4469 

4614 

441  1 

mi 

6612 

4413 

i 

4414 

4413 

1112 

461  i 

4417 

54 

6618 

6619 

1113 

6624 

6621 

6422 

6623 

114 

6624 

6623 

6626 

4427 

6628 

4629 

4636 

124 

6431 

4632 

123 

6633 

4434 

459 

6633 

4636 

4637 

36 

6638 

6439 

0446 

4641 

3679 

0642 

98  7 

6443 

91  3 

6644 

6643 

4646 

6647 

4648 

6649 

6636 

PROGRAM  CHISQ 

DOUBLE  PRECISION  E , X, Y  2 , CHI S , C , TOTAL 

DINE  NS  ION  X!164),Y!  104>,Z!  10C),HAME!3>,  IFMT!20> 

DIMENSION  l  B!  2  72  ) ,  I  Bll  F(  2  36  ) 

IUNIT-1 
WRITE!  1,  981  ) 

FORMPT<* CHI -SQUARED  TEST  FOR  INDEPENDENCE  FO  A  RXC  * , / , 
*•  CONTINGENCY  TABLE  AND  THE  CONTINGENCY  COEFFICIENT") 
WRITE!  I,  l 11 1 > 

FORMAT  <  ■  IHPUT  FILENAME') 

REAO< 1 , 1  )  NA  HE 
FORMAT ( 3A2  ) 

URITEC  If  1 112) 

FORMAT  ( *  ENTER  DATA  FORMAT  *  > 

REA D< 1  34  >1 FMT 
FORMAT ( 20 A2  ) 

WRITE!  1,1113) 

FORMAT  <  "NUMBER  ACROSS' > 

READ! 1 .* )  NC 
WRITE!  1,114) 

READ! 1 ,*  )  NR 

FORMAT  ! ' THE  NUMBER  OQWN  i  ") 

TOTAL-4. 

CHI S -4  . 

I  DC  B  S«  23  6 

CALL  OPEN! IB,  I ER, NAME, 3, 6, -2, IDCBS  ' 

IF!  IER .GE  .0  )  GO  TO  123 
WRITE!  1,124)  NAME,  IER 

F0RHAT!3A2, '  FAILED  TO  OPEN  ,  IER  ■  ',13) 

STOP  123 
CONTIHUE 
WRITE!  1,439  ) 

FORMAT! 'ENTER  1  FOR  PRINTOUT  OF  RAW  DATA,  ELSE  ENTER  0") 
READ! 1 , *  >  IPTO 
WRITE!  1,  36) 

FORMAT! 'ENTER  1  FOR  CRT  OR  6  FOR  LINPRINTER  OUTPUT') 

READ! 1 , « )  IUNIT 

IF! IPTO. HE.  1)  GO  TO  987 

WRITE! IUNIT ,3679 ) 

FORMAT!/' , 'RAW  DATA',/') 

WRITt! IUNIT, 913) 

FORMAT!  /V/  ) 

DO  146  J-l, NR 

CALL  READF! IB.  IER, IBUF  ) 

CALL  CODE 

REAO! I8UF, IFMT >  ! X! I ) , I ■  1 , NC  ) 

IF!  IPTO. EQ. 1  )  WRITE! IUNIT, IFMT)  ! X ! I > ,  I -1 , N C > 

DO  104  l-i.HC 
Y!  I  ) -Y!  I  )  +  X !  I  ) 


4^0 


0051  Z<  J  >*2<  J  >  +  X<  I  > 

0032  100  CONTINUE 

0033  DO  101  <1  ■  1  >  NC 

0034  101  TOTAL-TOTAL+Y< J  ) 

0033  CALL  RUNDFI  IB  ) 

0034  DO  200  J-l.NR 

0037  CALL  READF< IB / IER .  I BUF 1 

0038  CALL  CODE 

0059  READ<  1 0UF  / 1 FHT  X  X<  I  >,  1*1/ NO 

0040  DO  200  1*1/ HC 

0041  E*Y< I)*Z< J)/TOTAL 

0042  200  CHI  S'*CHI  $♦<  X<  I  >-E)*<X<I  >-E  >/E 

0043  N»<MC-l>*<NR-i  > 

0044  C»DSQRT( C N I S / C CHIS  +  TOTAL  > ) 

0043  URITE< IUNIT .9874 >  CHIS.N 

0044  9874  FORMAT</V .5X. “CHI-SQUARED  ■  ■ . FI  4 . 7  ,  l OX .  , *  DECREES  OF  FREEDOM  *■ 

0047  C/13) 

0048  URI TE< IUNIT/ 1 1  13  J  C 

0049  1115  FORMAT! // •  THE  CONTINGENCY  COEFFICIENT  •  */F10.5> 

0070  CALL  CLOSE<  IB  ) 

0071  ENO 

0072  END* 


I 

] 
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fHECEDING  PASS  HLANK-NQT  FILMED 


APPENDIX  A 


GENERALIZED  SUBROUTINES 

FPROB  and  YNORM  are  subroutines  used  in  many  of  the  statistical  programs 
FPR08  calculates  the  probability  value  for  the  F-statistic  in  the  analyses 
of  variance  and  covariance  programs.  There  are  five  arguments  for  FPROB 
(F,  DPI ,  DFZ,  Z,  and  P) .  The  three  parameters  passed  to  the  subroutine  are 
the  F-statistic  value  and  the  two  degrees  of  freedoms  associated  with  the  F 
The  return  parameters  are  the  Z-value  and  the  probability  calculation,  P. 
YNORM  is  used  to  normalize  scores.  There  are  two  arguments  for  YNORM 
'DZ,  YORMX) .  DZ  is  the  initial  score  value  which  is  passed  to  the  sub¬ 
routine;  YORMX  is  the  recalculated  score  that  is  returned  to  the  original 
program.  Program  listings  for  these  tv  •  subroutines  are  on  the  following 
pages . 


A- 1 


l 

Bing  rrrm  -  a..’. 


•FPROB  T-00003  IS  OH  CR00002  USING  00004  BLKS  R-0000 


0001 

0002 

0003 

0004 

0003 

0004 

000? 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0013 

0014 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0023 

0024 

0027 

0028 

0029 

0030 

0011 

0032 

0033 

0034 

0033 


FTN4  /  L 

SUBROUTINE  FPROD< F , OF  1 , DF2 , Z , P  ) 

DOUBLE  PRECISION  EDF1 , EDF2 , F 8 , T , 8 , B, TOP , BOT , CO , C B , C C , CD 

DOUBLE  PRECISION  F  ,  OF i ,  DF2  ,  Z  ,  P 

P-l  .  0 

EDF1-DF1 

EDF2-DF2 

FA-F 

I F< F  .LE. 0  .  )G0  TO  100 
IF<  EOF 1 .  LE . 0 .  )G0  TO  100 
I F( EDF2. LE. 0.  >G0  TO  100 
IF<  F  .GE.  1  .0  >C0  TO  60 
FA-1  . O/F 
T-EDF1 
EOF  1 -EDF2 
EDF2-T 

60  A-2 . /<  9 . *EDF1  ) 

8-2 . /<  9 . *EDF2  ) 

TOP»<  1  .-B  1  .  /  3.  >-l  .*A 

B0T-D3QRT<B*FA*-<2 . 73 . >+A> 

Z-0ABS<T0P7BQT  ) 

1 F< EDF2. GT. 3.  )G0  TO  80 
Z-Z-<  1  .  ♦  .  08*Z*M/EDF2«'*3  ) 

80  CA-. 196834 

CB- .113194 
CC- . 000344 
CD- . 019527 

T-Z*<CA+Z*<  C8+Z-CCC+Z-CD  >  >  ) 

T -< 1 . +T )**4 
P-. 3/T 

IF( F  .GE.  1  .0  )G0  TO  100 
P-l . -P 
100  RETURN 
END 
ENDS 
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p  j.  * 


YMORH  T-0000;i  IS  OM  CR00C02  USIN«  00006  BLKC  R-0000 


46*1 

FfH4 

0042 

SUBROUTINE  YHORHC  DZ / YORHX  > 

0003 

DOUBLE  PRECISION  DZ > DPI , YORNX  , DX, D AL , DBL , DAH , DBH , DAN, DBI , D A  I , 

0004 

#DFA , DFB , D AC , D  RC 

0003 

DPI*. 3 99 9 42 280 401413 

0006 

DX»OABS< DZ) 

0007 

YORNX^O . ODO 

0603 

I F( DZ . IT . -  1 8 . r  0  )  GO  TO  99 

0009 

YORHX-1  .  DO 

ooto 

IF< DZ. GT . 9. DO )  GO  TO  99 

001  1 

IF<DX  GT.3.D0)  GO  TO  10 

0012 

OAL-O . ODO 

0013 

DBL-i . 000 

0014 

DAH-OX 

0013 

DBH-1 . DO 

0016 

D AN  «0 . ODO 

0017 

5 

DAH»’DANM  .ODO 

0018 

0 A i ■-<  2 . DO*DAN-t .DO  >*DX*DX 

0019 

DBI *4 . DO*DAN- 1 .DO 

0020 

DAL-DBI-D4H+0AI-DAL 

0021 

D8L*DBI*D3H+DAI^DBL 

0022 

DAI-OX-DX-DAI 

0023 

0  0 1 *2 . D0  +  D9 I 

0024 

DAH-D8I*DAl+bAl«DAH 

0023 

D8H»DBI*DBL+DAI*DBH 

0026 

OFA-DAL/DB'. 

0027 

OFB-DAH/'Or>H 

0029 

IF(DFB.EQ.O.DO)  GO  TO  20 

3!>29 

IF<  DABS<  <  DFB-DFA  >/DFA  >.  LE.  1  .  D-IO) 

GO  TO  20 

0030 

GO  TO  3 

0031 

10 

DAL-0 . ODO 

0032 

DBL-i . ODO 

0033 

D  AH  -  1 . 000 

0034 

DBK-OX 

0033 

OBI-OX 

0036 

DAN-1 . DO 

0037 

DPA-1 . DO/DX 

0038 

13 

D AN“OAN+ 1 . ODO 

003? 

DAI -DAN- l .DO 

0040 

OAC-DBI-DAH+DA I*DAL 

0041 

DBC«0BI*D8H+0AI*DBL 

0042 

DFB-DAC/DBC 

0043 

DAL-OAH 

0044 

03LO8H 

0043 

DAH-DAC 

0046 

DBH-DBC 

004? 

IF  DFB. EC. 0.00)  GO  TO  20 

0048 

IKC  DABSC  CDFB-DFA  >/DFB  >.  LE.  1.  D-10) 

GC  TO  20 

0049 

DFA-DFB 

0030 

GO  TO  13 

0031 

20 

Y0RHX«DPI*9FB*0EXP< -DX*DX/2  .  DO ) 

0032 

I FC DX, LE . 3. DO  )  YORNX-O  5D0-Y0RHX 

0033 

JF< DZ . GT . 0 . DO >  YORNX-1  ODO-YORHX 

0034 

99 

RETURN 

0033 

END 

0036 

END* 
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